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PREFACE 


This manual is a guide to the use of the Pascal/VS compiler. It explains how to 
compile and execute Pascal/VS programs, and describes the compiler and the operat- 
ing system features which may be required by the Pascal/VS programmer. It does 
not describe the language implemented by the compiler. 


ELATED PUBLICATIONS 


° Pascal/VS lLanquage Reference Manual, order number SH20-6168. This manual 
describes the Pascal/VS language. 


© IBM Virtual Machine Facility/370: CMS Command and Macro Reference, order num- 
ber GC20-1818. This manual describes the commands of the Conversational Moni- 


tor System (CMS) component of the IBM Virtual Machine Facility/370 with 
detailed reference information concerning command syntax and usage. 


° IBM Virtual Machine Facility/370: CP Command Reference for General Users, 
order number GC20-1820. This manual describes the control processor commands 
of the IBM Virtual Machine Facility/370. 


e OS/VS2 TSO Command Language Reference Manual, order number GC28-0646. This 
manual describes the commands of the Time Sharing Option of OS/VS2. 


e OS/VS2 JCL, order number G6C28-0692. This is a reference manual for the job 
control language of OS/VS2. 


e OS/VS Linkage Editor and Loader, order number GC26-3813. This manual 
describes how to use the OS/VS52 linkage editor and loader. 


° Time Sharing Option Display Support and Structured Programming Facility Ver- 
sion 2.2: Installation and Customization Guide, order number SH20-2402. This 


manual describes how to install and modify menus and command procedures of the 
Structured Programming Facility (SPF). Knowledge of the content of this manu- 
al is required to install the Pascal/VS SPF menus and procedures. 


° OS/VS2 MVS Data Management Services Guide, order number GC26-3875. This manu- 
al describes the various data set access methods utilized by OS/VS2 and the 0S 
simulation of CMS -— VM/370. 


® Pascal/VS Reference Summary, order number GX20-2365. This reference summary contains basic information 
from the Pascal/VS Reference Manual and Pascal/VS Programmer’s Guide. 
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SUMMARY OF AMENDNENTS 


RELEASE 2.1 


The following is a list of the functional changes that were made to Pascal/VS for 
Release 2.1. 


A procedure Cor function) at any nesting level may now be passed as a routine 
parameter. The previous restriction which required such procedures to be at 
the outermost nesting level of a module has been removed. 


Two new options may be applied to files when they are opened: UCASE and NOCC. 


Rules have been relaxed in passing fields of packed records by var to a rou- 
tine. 


The "STACK" and "HEAP™ run time options have been added to control the amount 
at which the stack and heap are extended when an overflow occurs. 


The syntax of a "structured constant™ which contains non-simple constituents 
has been simplified. 


RELEASE 2.0 


The following is a list of the functional changes that were made to Pascal/V5S for 
Release 2.0. 


Pascal/VS now supports single precision floating point (32 bit) as well as 
double precision floating point (64 bit). 


Files may be opened for updating with the UPDATE procedure. 

Files may be opened for terminal input CTERMIN) and terminal output CTERMOUT) 
so that I/0 may take place directly to the user's terminal without going 
through the DDNAME interface. 

The MAIN directive permits you to define a procedure that may be tnvoked from 
a non-Pascal environment. <A procedure that uses this directive is not reen- 
trant. 

The REENTRANT directive permits you to define a procedure that may be invoked 
from a non-Pascal environment. A procedure that uses this directive is reen- 
trant. 

A new predefined type, STRINGPTR, has been added that permits you to allocate 
strings with the NEW procedure whose maximum size 1s not defined until the 
Invocation of NEW. 

A new parameter passing mechanism is provided that allows strings to be passed 
into a procedure or function without requiring you to specify the maximum size 
of the string on the formal parameter. 

The maximum size of a string has been increased to 32767 characters. 

The Pascal/VS compiler is now fully reentrant. 


Code produced from the compiler will be reentrant if static storage is not 
modified. 7 


Pascal/VS programs may contain source lines up to 100 characters in length. 
Files may be accessed based on relative record number Crandom access). 

Run time errors may be intercepted by the user's program. 

Run time diagnostics have been improved. 


Pascal/V5 will flag extensions when the option "LANGLVLCSTD)I™ 1s used. 


Summary of Amendments Vv 
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vi 


A mechanism has been provided so that Pascal/VS routines may be calied from 
other languages. 


All record formats acceptable to QSAM are now supported by the Pascal/VS I/0 
facilities. . 


A procedure or function may now be exited by means of the goto statement. 


You may now declare an array variable where each element of the array is a 
file. 


You may define a file to be a field of a record structure. 


Files may now be allocated in the heap (as a dynamic variable) and accessed 
via a pointer. 


You may now define a subrange of INTEGER which is allocated to 3 bytes of stor- 
age. Control over signed or unsigned values is determined by the subrange. 


Variables may be declared in the outermost scope of a SEGMENT. These vari- 
ables are defined to overlay the variables in the outermost scope of the main 
program. 


The PDSIN procedure opens a member of a library file Cpartitioned dataset) for 
input. 


The PDSOUT procedure opens a member of a library file Cpartitioned dataset) 
for output. 


A procedure or function that is declared as EXTERNAL may have its body defined 
later on in the same module. Such a routine becomes an entry point. 


The CPAGE percent(%) statement conditionally does a page eject if less than a 
specified number of lines remain on the current listing page. 


The MAXLENGTH function returns the maximum length that a string variable can 
assume. 


The ZCHECK TRUNCATE option enables Cor disables) the checking for truncation 
of strings. 


The PASCALVS exec for invoking the compiler under CMS has been modified so 
that the specification of the operands allows greater flexability. 


New compiler options have been added, namely: LINECOUNT, PXREF, PAGEWIDTH, and 
LANGLVL. 


The catalogued procedures for invoking Pascal/VS in 0S Batch have been simpli- 
fied. 


The format of the output listing has been modified so that longer source lines 
may be accomodated. 


Multiple debugger commands may be entered ona single line by using a semico- 


lon (3) as a separator. 
The format of the Pascal File Control Block has been modified. 


Support 31S now provided for ANSI and machine control characters on output 
files. 


Execution of a Pascal/VS program will terminate after a user determined number 
of non-fatal run time errors. 


The debugger now supports breakpoints at the end of a procedure or function. 


The Trace mode in the debugger provides information on when procedures are 
being exited. 


The TRACE procedure now permits you to specify the file on which the traceback 
15 to be written. | 


The Equate command of the debugger has been enhanced. 
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1.0 INTRODUCTION 


The Pascal/VS compiler is a processing program which translates Pascal/VS source 
programs, diagnosing errors as it does. so, into IBM System/370 machine 
instructions. 

The comptler may be executed under the following operating system environments: 

® 057370 Batch CVS1 and VS2 R3.7) 

® Time Sharing Option (TSO) of OS/VS2 


@ Conversational Monitor System (CMS) of Virtual Machine Facility/3790 (VM/370) 
Release 5 PLC 2 and latter. 


l.1 INVOKING THE COMPILER UNDER CMS: PASCALVS EXEC 


[CONSOLE] 


PRINT pear mect ees) 
[NOOBJ] 


PASCALVS | fn CLft (CfmJ] [€ Loptions]) [NOPRINT 
: _ prsKk 


fn is the file name of the source program. 

ft is the file type of the source program; the assumed file type is 
“PASCAL”. 

fm is the file mode of the source program. 

maclibs are optional macro libraries required by the “INCLUDE facility. Up to 
eight libraries may be specified. 

options are compiler options. 

PRINT specifies that the listing is to be spooled to the virtual printer. 

NOPRINT specifies that the listing is to be suppressed. 

DISK specifies that the listing is to be stored as a file named "fn 


LISTING". This 1s the default. 

CONSOLE specifies that the console messages produced by the compiler are be 
stored as a file named "fn CONSOLE". If CONSOLE is not specified, 
then the messages will be displayed on the terminal console. 


NOOB J suppresses the production of an object module. 


1.2 BUILDING A LOAD MODULE UNDER CMS: PASCMOD EXEC 


PASCHOD | main Enames... ] [E (€ options... [)]] 


main is the name of the main program module. 


names... are the names of segment modules and text libraries (TXTLIB's) which 
are to be included. | 
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options... isa list of options. 


The resulting load module will be given the name "main MODULE A". The load map of 
the module will be stored in "main MAP A". 


The following are recognized as options to the PASCMOD command. 


DEBUG links the debugging routines into the load module so that the interac~- 
| tive debugger can be used. 


NAME name specifies an alternate name for the load module. The resulting load 
module and map will have the name "name MODULE A™ and "name MAP A™. 


1.3. INVOKING THE LOAD MODULE UNDER CHS 


A Pascal/VS load module is invoked as follows: 
modname [€ [rtparms.../] [parms...] ] 


where "modnamne™ is the name of the lead module; "rtparms” are run time options 
(separated by blanks); and "parms" are the parameters Cif any) being passed. 


1.4 INVOKING THE COMPILER UNDER TSO: PASCALVS CLIST 


: CLIST NAME OPERANDS 
PASCALVS | data-set-name 


[compiler-options-list] 


[ OBJECT Cdsname ) 1 
NOOBJECT 


PRINT(X) 
PRINT (dsname ) 
SYSPRINT(sysout-class ) 

NOPRINT 


[ CONSOLE(®) 7] 
COHNSOLE(dsname ) 


LIB(dsname-list) | ] 
NOLIB 


data-set-name is the name of the primary input data set. 
compiler-options-list is one or more compiler options separated by blanks 


OBJECT(dsname) specifies the data set to contain the object module. 


NOOBJECT specifies that no object module is to be produced. 
PRINT () specifies that the compiler listing is to be displayed on the ter- 
minal. 


PRINT(dsname) specifies the data set to contain the compiler listing. 


SYSPRINT(sysout-class) specifies the sysout class to where the compiler listing 
is to be produced. 


NOPRINT suppresses the compiler listing. 
CONSOLE(* ) specifies that compiler messages are to be displayed on the termi- 
nal. 
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cor 


CONSOLE(dsname) specifies the data set to contain compiler messages. 
LIB( ‘dsname-list'") specifies a list of %INCLUDE libraries. 


NOLIB specifies that no INCLUDE libraries are required. 
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1.5 BUILDING A LOAD MODULE UNDER TSO: PASCMOD CLIST 


| ' CLIST NAME OPERANDS | | 


PASCMOD data-set-name or x 


[OBJECT( *dsname-list’")] 


[DEBUG] 
[LOAD(dsname)] 


PRINT (dsname ) 
NOFRINT 


[LIB( 'dsname-list’)] 


PRINT (*) 
| * LET 7] 
NOLET 


CFORTLIBI 


XCAL 7 
NOXCAL 


C[COBLIB] 


[ 
[ 
[ 
[ 


MAP 1 
NOMAP 


XREF J 
NOXREF 


SCTR J 
NOSCTR 


NE 7] 
NONE 


[ 
[ 
[ 
[ 


NCAL ] 
NONCAL 


REUS 7] 
NOREUS 


OVLY J 
NOOVLY 


OL 
NOOL ] 


[ 
[ 
[ 
[ 


LIST 7] 
NOLIST 


REFR 7] 
NOREFR 


RENT 1 
NORENT 


DC ] 
NODC 


TEST 
NOTEST ] [ 


enna CeN SERRE RNAV RODEO 


NOTERM 7] 
TERM 


[SIZE(‘integerl integer2')1 
(DCBS(blocksize)] 
C[AC(authorization-code)] 


is the data set containing a Pascal/VS object module and/or link- 
age editor control cards. 


data-set-name 

OBJECT( "dsname-list') specifies a list of data sets which-contain additional 
object modules to be included in the link-edit. 

LIB( *dsname-list'") specifies a list of libraries to be searched. 


DEBUG specifies that the Pascal/VS interactive debugger 1s to be uti- 


lized. 


All other operands of the PASCMOD CLIST are identical to their counterparts in the 
LINK command as described in the TSO Command Language Reference Manual. 
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1.6 INVOKING THE LOAD MODULE UNDER TSO: THE CALL COMMAND 


dsnamel (member )] {[ "CLoptionss] [parms]’ ] 


dsname(member ) 


options 


parms 


specifies the name of a partitioned data set and the member where 
the load module to be invoked is stored. 


iS one or more run time options separated by either a comma or a 
blank. 


a parameter string which 1s to be passed to the program. 


The total length of the quoted string Coptions plus parms) must not exceed 100 


characters. 


1.7 INTERACTIVE DEBUGGER 


In order to use Debug, you must follow these four steps: 


e Compile the module to be debugged with the DEBUG option. 


e When link-editing your program, include the debug library. 


° When executing the load module, specify 'DEBUG' as a run time option. 


Description (Abbreviation in capital letters) 


9 
»Variable 
Break 
CLEAR 

Cms 
Display 


List all debug commands 

Display the value of a variable 
Set a break point 

Remove all break points 

Enter CMS subset mode 

Display status 


Display Breaks | Display the location of all break points 
Display Equates Display all equate symbols with their current 


Listvars 


Qual 

QUIT 
Reset 

Set Attr 
Set Count 
Set Trace 
Trace 
Walk 


definitions 

Terminate the program (same as QUIT) 

Define an equate symbol 

Begin or resume execution of probram 

List the values of all variables that are local 
to the active routine 

Redefine the "current" qualification 

Terminate the program (same as END) 

Ramove a break point 

Display attributes when variables are viewed 

Initiate/terminate statement counting 

Activate/deactive program tracing 

Display a trace back 

Execute a single statement and then prompt for 
another command 
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1.8 COMPILER OPTIONS 


Compiler Option Abbreviated Name | opefault = sd 


CHECK/NOCHECK as ! CHECK 
DEBUG/NODEBUG See NODEBUG 
GOSTMT/NOGOSTMT GS/NOGS GOSTMT 
LINECOUNT (Cn) LC LINECOUNT (60 > 
LIST/NOLIST aes NOLIST 
LANGLVLCSTD/EXTEND) ee LANGLVLCEXTEND) 
MARGINS (m,n) MARCm,n) MARGINS(1,72) 
OPTIMIZE/NOOPTIMIZE OPT/NOOPT OPTIMIZE 
PAGEWIDTHCn) PW PAGEWIDTH(128) 
PXREF/NOPXREF eae PXREF 
SEQUENCE(m,n)/NOSEQUENCE SEQCm,nd/NOSEQ SEQUENCE( 73,80) 
SOURCE/NOSOURCE S7NOS SOURCE 
WARNING/NOWARNING W/NOW WARNING 
XREF/NOXREF X/NOX XREFCSHORT) 


1.9 RUN TIME OPTIONS 

The following options enable features in the Pascal/VS run time environment in 
which your program will be executing. 

COUNT generates a statement count table and writes it to OUTPUT. 

DEBUG activates the interactive debugger. 


SETMEM initializes local storage of a routine to a specific value on each invoca- 
tion of the routine. | 


NOSPIE suppresses the interception of program exceptions. 
NOCHECK causes all checking errors to be ignored. 
ERRFILE = ddname specifies the file to which error diagnostics are to be written. 


ERRCOUNT = number specifies the number of non-fatal run time errors that will be 
permitted prior to terminating the program. The default number is 20. 


STACK = number specifies the number of kilobytes by which the run time stack is to 
be extended when a stack overflow occurs. 


HEAP = number specifies the number of kilobytes by which the heap is to be extended 
when a heap overflow occurs. 
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1.10 CATALOGED PROCEDURES 


PASCC Compile only -- step name: PASC 

PASCCG Compile, load and execute ~- step names: PASC, GO 

PASCCL Compile and link-~edit -- step name: PASC, LKED 

PASCCLG Compile, link-edit, and execute -- step names: PASC, LKED, GO 


| Data set description stepname.ddname 


PASC.SYSIN? 
PASC.SYSLIB 


SYSPRINT 


source program input 

*ZINCLUDE library (PDS) 

source listing, 
cross-reference listing, 
pseudo assembly listing and 
external symbol table listing 

object module 

load module 

linkage-editor control cards 

linkage-editor load library 


PASC. 


PASC.SYSLIN 
LKED.SYSLMOD 
LKED.SYSIN? 
LKED.SYSLIB 


loader input GO.SYSLIN 
loader library GO.SYSLIB 
file OUTPUT 


GO.OQUTPUT 


1 This DDname is not defaulted and must be 
explicitly defined. 


1.11 SAMPLE BATCH JOB 


//jobname JOB 
//STEPL EXEC PASCCLG,OPTIONS='XREF(LONG),LIST’ 
//PASC.SYSIN DD xX 
{Program to be compiled goes here} 
1% 
//LKED.SYSIN DD *X 
ENTRY PASCALVS 


7% 
//GO.INPUT DD... 
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This section applies only to those who 
are using Pascal/VS under the Conversa- 
tional Monitor System (CMS) of Virtual 
Machine Facility/370 (VM/370). If you 
are not using CMS then you may skip 
this entire section. 


For a description of the syntax nota-_ 


tion used to describe commands, see 
"Command Syntax Notation" on page 163. 


There are four steps to running a 


Pascal/VS program under CMS. 


2.1 HOW TO COMPILE A PROGRAM 


PASCALVS 


2.90 RUNNING A PROGRAM UNDER CMS 


1. The program is compiled to produce 
an object module; 


2. A load module is generated from the 
object module; 


3. All files used within the program 
are defined using the FILEDEF com- 
mand; 


4. The load module is invoked. 


DISK 
fn Cft [fm] ] |C foptions...] [PRINT 


[CONSOLE] [NOOBJ] 
NOPRINT 


[LIB(maclibs...)] 


Figure l. 


2e.1.1 Invoking the Compiler 


The standard method of tnvoking the 
Pascal/VS compiler under CMS is by 
means of an EXEC-called PASCALVS. 


To compile a Pascal/VS program, the 
EXEC may be invoked in its simplest 
form by the command 


PASCALVS fn 


where "fn" is the file name of the pro- 
gram. IHIf the file type 15 not explic- 
itly specified, the type "PASCAL" will 
be assumed. 


The compiler translates a source pro- 
gram into object code, which it stores 
in a file. The name of this file is 
identical to the name of the source 
program. Its file type is "TEXT". 


For example, to compile a program which 
resides ina file called "SORT PASCAL", 
the command would be: 


PASCALVS SORT 
If the compilation completes without 


errors, then the file named "SORT TEXT" 
will contain the resulting object code. 


The PASCALVS command of CMS: 


invokes the Pascal/VS compiler. 


2.1.2 The PASCALVS Command 


The generalized form of the PASCALVS 
command is illustrated in Figure 1. 

The operands of the command are defined 
as follows: 


fn ft fm 
15 the file name, file type, and 
file mode of the source program. 
The file type and file mode are 
optional. The default file type is 
"PASCAL" and the default file mode 
is Wy. 


maclibs... 
are optional macro libraries 
required by the “INCLUDE facility. 
Up to eight may be specified. 


options... 
are compiler options, see "Compil- 
er Options” on page 31. 


The command options DISP, PRINT, and 
NOPRINT specify where the compiler 
listing is to be placed. 


DISK 


specifies that the listing 1s to be 
stored as a file on your A disk. 
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The file is named "fn LISTING", 
where "fn" is the file name of the 
source program. This option is the 
default. 


PRINT 
specifies that the listing is to be 
spooled to your virtual printer. 


NOPRINT 
specifies that the Listing 1s to be 
suppressed. This option automati- 
cally forces the following three 
compiler options to become active: 


- NOSOURCE 
- NOXREF 
- NOLIST 


CONSOLE 

specifies that the console mes~- 
sages produced by the compiler are 
be stored as a file on your A disk. 
The name assigned to the file is 
"fn CONSOLE". If CONSOLE is not 
specified, then the messages will 
be displayed on your terminal con- 
sole. 


NOOBJ 
suppresses the production of an 
object module by disabling the code 
generation phase of the compiler. 
This eption is useful when you are 
using the compiler only as an error 
diagnoser. 


For an explanation of the 
error messages and return codes 
produced from the EXEC, see "Messages 
from PASCALVS exec™ on page 159. 


2.1.3 The %INCLUDE Maclibs 


The macro libraries (maclibs) that may 
be specified when invoking the PASCALVS 
command are those required by the 
*INCLUDE facility. When the compiler 
encounters an 4INCLUDE statement with- 
in your program it will search the 
maclibs Cin the order in which they 
were specified in the PASCALVS command) 
for the member named. When found, the 
maclib member becomes the input stream 
for the compiler. After the compiler 
has read the entire member, it will 
continue reading in the previous input 
stream Cimmediately following the 
%INCLUDE statement). 


The default maclib named PASCALVS need 
not be specified. It 15 always tmplic~— 
itly provided as the last maclib itn the 
search order. 
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possible 


2.1.4 Passing Compiler Options 


Compile time options (see "Compiler 
Options™ on page 31) are parameters 
that are passed to the compiler which 
specify whether or not a particular 
feature is to be active. A list of 
compiler options may be specified in 
the PASCALVS parameter list. The 
options list must be preceded by a left 
parenthesis "C("™. 


For instance, to compile the program 
"TEST PASCAL™ with the debug feature 
enabled and without a cross reference 
table, you would invoke the following 
command: 


PASCALVS TEST ( DEBUG NOXREF 


2.1.5 The Compiler Listing 


The compiler generates a listing of the 
source program with such information as 
the lexical nesting structure of the 
program and cross reference tables. 
For a detailed description of the 
information on the source listing see 
"Source Listings™ on page 37. 


2.1.6 Compiler Diagnostics 


Any compiler-detected errors in your 
program Will be displayed on your ter- 
minal console (Cor written to a disk 
file if the CONSOLE options 1s speci- 
fied). The errors will also be indi-~ 
cated on your source listing at the 
lines where the errors were detected. 
The diagnostics are summarized at the 
end of the listing. 


When an error is detected, the source 
line that was being scanned by the com- 
piler 1s displayed on your console. 
Immediately underneath the printed 
line a dollar symbol ('J]') is placed at 
each location where an error was detec~- 
ted. This symbol serves as a pointer 
to the approximate location where the 
error occurred within the source 
record. 


Accompanying each error indicator 15 an 
error number. Beginning with the fol- 
lowing line of your console a diagnos- 
tic message 1s produced for each error 
number. 


For a synopsis of the compiler-gener- 
ated messages see "Pascal/VS Compiler 
Messages" on page 131. 


2.1.7 Sample Compilation 


edit copy pascal 
NEW FILE: 
program copy; 
var 
infile, 
outfile =: text; 
buffer > string; 
begin 
resetCinfile); 
rewriteCoutfile) ; 
while not eofCinfile) do 
begin 
readIin€infile,buffer); 
writelnCoutfile buffer) 
end; 
end. 


EDIT: 


file 
FILE SAVED 


Rs T=0.2570.62 06:56:44 

Ppascalvs copy 

INVOKING PASCAL/VS R2.0 
WRITELNCOUTFILE ey 


ERROR 41: Comma °,* expected 
1 ERROR DETECTED. 


SOURCE LINES: 16; COMPILE TIME: 0.16 SECONDS; COMPILE RATE: 6109 LPM 


RETURN CODE: 8 
R(00008); T=0.3470.67 06:56:59 


| Figure 2. Sampie compilation under CMS 
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2.2 HOW TO BUILD A LOAD MODULE 


PASCMOD 


main EInames ... ] £ (€ options... [)]] 


Figure 3. The PASCMOD command: 


The PASCMOD EXEC generates load modules 
from Pascal/V5 object code. If your 
program consists of just one source 
module (that 1s, you have no segment 
modules), a load module can be genera- 
ted by simply tnvoking PASCMOD with the 
name of the program. For example, if a 
program named SORT was successfully 
compiled (which iamplies that "SORT 
TEXT™ exists), then a load module may 
be generated with: 


PASCMOD SORT 
The resulting module would be called 
"SORT MODULE". <A load map 1s stored in 
"SORT MAP". 


The general form of the PASCMOD command 
1s shown tn Figure 3. 


The operands of the command are defined 
as follows: 


main 
is the name of the main program 
module. 

names... 
are the names of segment modules 
and text libraries CTXTLIB'sS) 
which are to be included. If a 


name "nN" is specified and there are 
two files named nN TEXT and nn 
TXTLIB, then the TEXT file will be 
included and the TXTLIB will be 
searched. 


options... 
is a list of options. (see "Module 
Generation Options."™) 


The resulting load module will be given 
the name "main MODULE A". The load map 
of the module will be stored in "main 
MAP A". 


The Pascal/VS run time library resides 
in "PASCALVS TXTLIB™; PASCMOD implic~— 
itly appends this library to the list 
that you specify. 
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generates a Pascal/VS load module. 


As an example, let us build a load mod- 
ule for a pre-compiled program which 
resides in three source modules: MAIN, 
ASEG, and BSEG. This program calls 
routines that reside ina txtlib called 


UTILITY. The following command would 
generate a load module called MAIN 
MODULE: 


PASCMOD MAIN ASEG BSEG UTILITY 


2.2.1 Module Generation Options 


The following are recognized as options 
to the PASCMOD command. 


DEBUG | 
specifies that the debugging rou- 
tines are to be linked into the 
load module so that the interactive 
debugger can be used. (See 
"Pascal/VS Interactive Debugger" 
on page 65.) 


NAME name 
specifies an alternate name for the 
load module. The resulting load 
module and map will have the name 
"name MODULE A™ and "name MAP A". 


2.c.c Run time Libraries 


Routines which make up the Pascal/VS 
runtime environment reside ina text 
library called "PASCALVS TXTLIB”™. It 
must be present in order to resolve the 
linkages from the program being pre- 
pared for execution. 


The name of the txtlib which contains 
the runtime Debug support is "PASDEBUG 
TXTLIB". (see "Pascal/VS Interactive 
Debugger" on page 65 for a description 
of Debug). 


2.3 HOW TO DEFINE FILES 


FILEDEF SYSIN DISK INPUT DATA 


FILEDEF SYSPRINT PRINTER CLRECL 133 RECFM VA 
FILEDEF OUTPUTFI DISK OUTPUT DATA CRECFM F LRECL 4% 
FILEDEF OUTPUT TERMINAL CRECFM F LRECL 80 


FILEDEF INPUT TERMINAL CRECFM V LRECL 80 


Figure 4. 


Before you invoke the generated load 
module, you must first define the files 
that your program requires. This 15 
done with the FILEDEF command. 


The first parameter of the FILEDEF com- 
mand is the file's ddname. The ddname 
to be associated with a particular file 
variable in your program 1s normally 
the name of the file variable itself, 
truncated to eight characters. 


For example, the ddnames for the vari- 
ables declared within the Pascal decla- 
ration below would be SYSIN, SYSPRINT, 
and OUTPUTFI, respectively. 


var 
SYSIN, 
SYSPRINT TEXT; 
OUTPUTFILE file of 
INTEGER; 


If a particular file is to be opened 
for input, attributes such as LRECL, 
BLKSIZE, and RECFM are obtained from 
the (presumably) already existing 
file. Note: A file that is being 
defined to the terminal requires you to 
explicitly specify RECFM and LRECL on 
the FILEDEF command. 


For the case of files to be opened for 
output, the LRECL, BLKSIZE, or RECFM 
Will be assigned default values if not 
specified. For a description of the 
defaults see "Data Set DCB Attributes" 
on page 45. 


The FILEDEF commands required for each 
of the three file variables in the 


Examples of CMS file definition commands 


example above and for INPUT and OUTPUT 
could be as shown in Figure 4. 


2.4 HOW TO INVOKE THE LOAD MODULE 


After the module has been created and 
the files defined, you are ready to 
execute the program. This 1s done by 
invoking the module. 


If your program expects to read a 
parameter list via the PARMS function, 
the list must follow the module name: 


modname [parms...] 


where "modname™ is the name of the load 


. module and "parms" are the parameters 


Cif any) being passed. 


Run time options are also passed as a 
parameter list. To distinguish runtime 
parameters being passed to the 
Pascal/VS environment from those that 
your program will read (via the PARMS 
function), the runtime parameter list 
must be terminated with a slash "7s". 
The program parameters, if any, must 
follow the "7". 


modname [ [(rtparms.../] [parms...] ] 
For a description of the run time 


options see "Run Time Options"™ on page 
35: 
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3.0 RUNNING A PROGRAM UNDER TSO 


This section describes how to compile 1. The program is compiled to form an 
and execute a Pascal/VS program under object module; 

the Time Sharing Option (TSQO) of | 
OS/VS2. If you are not using TSO to 2. A load module 1s generated from the 


run the compiler, you may skip this object module; 
section. 

3. All data sets used within the pro- 
Refer to "Command Syntax Notation™ on gram are allocated; 
page 163 for a description of the syn- 
tax notation used to describe commands. 4. The load module is invoked. 


There are four steps to running a 


Pascal/VS program. 


3.1 HOW TO COMPILE A PROGRAM 


CLIST NAME | OPERANDS | 


PASCALVS 


data-set-name 


Ccompiler-options-list] 


OBJECT(dsname ) 
NOOBJECT 


SYSPRINT(sysout-class ) 
NOPRINT 


PRINT (¥ ) 
PRINT (dsname ) 
CONSOLE(dsname ) 


CONSOLE(* ) 


LIB(dsname-list) 
NOLIB 


Figure 5. PASCALVS CLIST syntax. 


3.1.1 Invoking the Compiler 


The Pascal/VS compiler 1s invoked under 
TSO by means of a CLIST. A sample 
CLIST named PASCALVS is provided to 
compile a Pascal/VS program. 


data-set-name 
specifies the name of the primary 
input data set in which contains 
the source program to be 
compiled. This can be either a 
fully qualified name Cenclosed 
in single quotation marks) or a 
simple name (Cto which the user 


identification will be prefixed 
and the qualifier “"PASCAL™ will 
be suffixed). This must be the 
first operand specified. 


compiler-options-list 
specifies one or more compiler 
options. See "Compiler Options" 
on page 31. | 


OBJECT (dsname ) 
specifies that the object module 
produced by the compiler is to be 
written to the data set named in 
the parentheses. This can be 
either a fully qualified name 
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Cenclosed within triple quota- 
tion marks "Ft. ..t'*)2 or a 
simple name (to which the iden- 
tification qualifier will § be 
prefixed and the qualifier "OBJ" 
suffixed). 


NOOBJECT 
specifies that no object module 


data set named in the 
parentheses. This can be either 
a fully qualified name Cenclosed 
within triple quotation marks 
rrr oll ''')2 or a simple name (to 
Which the identification qual- 
ifier will be prefixed and the 
qualifier "LIST™ suffixed). 


is to be produced. The compiler SYSPRINT(sysout-class ) 


Will diagnose errors only. 


If neither OBJ nor NOOBJ is spec~- 
ified then object module 
produced by the compiler will be 


written to a default data set. NOPRINT 
If the data set specified in the 
first operand contains a 
descriptive qualifier of 


WPASCAL™, the CLIST will form a 
data set name for the object mod- 
ule by replacing the descriptor 


specifies that the compiler 
listing 1s to be written to the 
sysout class named in parenthe- 
ses. 


specifies that the compiler 
listing 1s not to be produced. 
This operand activates the fol- 
lowing compiler options: 
NOSOURCE, NOXREF, NOLIST 


qualifier of the input data set CONSOLE( ) 


with "OBJ". If the descriptive 
qualifier is not "PASCAL", then 
you will be prompted for the 
object module data set name. 


specifies that the compiler gen- 
erated messages are to be dis- 
played on the terminal console. 
This 1s the default. 


If the first operand of PASCALVS CONSOLE(dsname ) 


specifies the member of a parti- 
tioned data set, then the name of 
the associated object module 
will be generated as just 
described. If the object module 
data set is a partitioned data 
set, then the object module will 
become a member within the PDS 
and will have the same name as 
the member name of the input data 
set. 


As an example, given that the 
user identification 1s ABC, the 
following commands will produce 
object modules with the name 
shown. 


PASCALVS SORT 
object module: 'ABC.SORT.OBJ' 


PASCALVS ‘DEF.PDS.PASCAL(MAIN)’® 
object module: 
"DEF.PDS.OBJCMAIN)' 


PASCALVS ‘'ABC.PROG.PAS' 
user prompted for object 
module name 


PRINT (x) 
specifies that the compiler 
listing is to be displayed on the NOLIB 
terminal; no other copy will be 
available. 


PRINT (dsname) 
specifies that the compiler 
listing is to be written on the 


specifies that the compiler gen- 
erated messages are to be written 
to the data set named in the 
parentheses. This can be either 
a fully qualified name Cenclosed 
Within triple quotation marks 
reroll. 'tt') or a simple name Cto 
which the identification qual- 
ifier will be prefixed and the 
qualifier "CONSOLE”™ suffixed). 


LIB(dsname-list) 


specifies that the *%INCLUDE 
facility 1S being utilized. 
Within the parentheses is a list 
of the names of one or more par- 
titioned data sets that are to be 
searched for members to be 
included Within the Input 
stream. 


If the list contains more than 
one name, the entire list must be 
enclosed within quotes. Any ful- 
ly qualified name within the 
quoted list must be enclosed in 
double quotes ''...?'!', 


See "Using the %INCLUDE 
Facility™ on page 17. 


specifies that no %INCLUDE 
libraries are required. This is 
the default. 


1 Triple quotes are required because the CLIST processor removes the outer 


quotes within a keyword sub-operand list. 


2 Triple quotes are required because the CLIST processor removes the outer 


quotes within a keyword sub-operand list. 
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Example 1 
Operation: Invoke the Pascal/VS com- 
piler to process a 
Pascal/VS program 
Known: User-identification is ABC 


Data set containing the pro- 
gram is named ABC.SORT.PASCAL 


The compiler Listing is to be 
directed to the printer. 


Default options and data set 
names are to be used. 


PASCALVS SORT SYSPRINTCA) 


Example 2 


Operation: Invoke the Pascal/VS com- 
piler to process a 
Pascal/VS program 


Known: User-identification 1s XYZ 


Data set containing the pro- 
gram is named ABC.TEST.PASCAL 


The compiler listing is to be 
directed to a data set named 
XYZ.TESTLIST.LIST. 


The long version of the cross 
reference listing 15 pre- 
ferred. 


Default options and data set 
names are to be used for the 
rest. 


PASCALVS "ABC. TEST.PASCAL* + 
XREFCLONG),PRINTCTESTLIST) 


3.1.2 Using the %INCLUDE Facility 


If the “INCLUDE facility is used within 
the source program, then the names of 
the library or libraries to be searched 
must be listed within the LIB parameter 
of the PASCALVS CLIST. 


The standard include library supplied 
by IBM is called® 


"SYS1.PASCALVS.MACLIB" 


This library must be specified in the 
LIB list if your program contains an 
%INCLUDE statement for one of the IBM 
supplied members. 


When the compiler encounters an 
%INCLUDE statement within the source 
program, 1t will search the partitioned 


s The high-level 
installation. 


qualifier name 


(SYS1) may be 


data set(€s) in the order specified for 
the member named within the statement. 
When found, the member becomes” the 
input stream for the compiler. After 
the compiler has read the entire 
member, it will continue reading from 
the previous input stream immediately 
following the ZINCLUDE statement. 


Example 1 
Operation: Invoke the Pascal/VS com- 
piler to process a 
Pascal/VS program which 
utilizes the AINCLUDE 
facility. 


Known: User-identification is P123 


Data set containing the pro- 
gram 1S named 


"P123.MAIN.PASCAL'’ 


The source to be included is 
stored in two partitioned 
data sets by the names of 


"P123.PASLIB' 
"SYS1.PASCALVS.MACLIB’. 


Default options and data set 
names are to be used for the 
rest. 


PASCALVS MAIN LIBC'PASLIB,+ 
"YSYSL.PASCALVS .MACLIB''?) 


3.1.3 Compiler Diagnostics 


By default, compiler diagnostics are 
displayed on your terminal. If the 
CONSOLE(dsSname) operand appears on the 
PASCALVS command, then the diagnostics 
Will be stored tn a data set. The 
errors will also be indicated on your 
source listing at the lines where the 
errors were detected. The diagnostics 
are summarized at the end of the list- 
ing. 


When an error is detected, the source 
line that was being scanned by the com- 
piler is printed on your terminal Cor 
to the CONSOLE data set). Immediately 
underneath the printed line, a dollar 
symbol C'S") is placed at each location 
where an error was detected. This sym- 
bol serves as a pointer to indicate the 
approximate location where the error 
occurred within the source record. 


Accompanying each error indicator 15 an 
error number. Beginning with the fol- 
lowing line of your console a diagnos~ 
tic message is produced for each error 
number. 


different at your 
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For a synopsis of the compiler genera- 
ted messages see "Pascal/VS Compiler 
Messages" on page 131. 


3.2 HOW TO BUILD A LOAD MODULE 


CLIST NAME OPERANDS | 


PASCMOD 


data-set-name or xX 


[OBJECT("dsname-list'’)] 


[DEBUG] 


CLOAD(dsname)] 


PRINT (%) 


PRINT (Cdsname ) | [ LET 7] XCAL 7] 


NOPRINT 
[LIB( *dsname-list’)] 


MAP 
NOMAP 


XREF 
NOXREE 


SCTR 
NOSCTR 


[ NE 


NONE 


[ TEST 
NOTEST 


NOLET NOXCAL 


[FORTLIB] CCOBLIB] 


NCAL LIST 
] NONCAL J [ NOLIST ] 


REUS REFR 
] [ NOREUS ] [ NOREFR 


NOOVLY NORENT 


J 
] [ OVLY ] [RENT 3 
] 


J Enos, 2 


NOTERM 
J [ TERM J 


[SIZE(C*integerl integer2' )] 
[DCBS(blocksize)] 
[aAc(authorization-code)] 


Figure 6. 


To generate a load module from a 
Pascal/VS object module, you may use 
either the TSO LINK command or a CLIST 
named "PASCMOD" (Figure 6). The CLIST 
performs the same function as the LINK 
command except that it will automati- 
cally include the Pascal/VS runtime 
library in generating the Load module. 
Also, if the debugger is to be 
utilized, the CLIST will include the 
Pascal/VS debug library. (A complete 
description of the LINK command is con- 


tained in the ITSO Command Lanquage 
Reference Manual.) 


Every Pascal/VS object module contains 
references to the runtime support rou- 
tines. These routines are stored ina 
library called’ 


$ The high-level 
installation. 


qualifier name 
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CSYS1) 


The TSO PASCMOD CLIST description. 


"SYS1.PASCALVS.LOAD" 


This library must be linked into a 
Pascal/VS object module in order to 
resolve all external references prop- 
erly. If the PASCMOD CLIST is used, 
this library is included 
automatically. 


If the interactive debugger is to be 
utirlized, then the library containing 
the debug environment must be tncluded 
in the linking. The name of this 
library is* 


"SYS1.PASDEBUG.LOAD" 
This library must appear ahead of the 


runtime library in search order. If 
the PASCMOD CLIST is used, this library 


may be different at § your 


will be included if the option DEBUG its 
specified. 


If more than one object module is, being 
linked together, then an entry point 
should be specified by means of a link- 
age editor control card. The name of 
the entry point for any Pascal/VS pro- 
gram 1s PASCALVS. 


data-set-name 

specifies the name of a data set 
containing a Pascal/VS object mod- 
ule and/or linkage editor control 
cards. If more than one object 
module is to be linked, then their 
names should appear in the OBJECT 
sub-parameter list. 


You may substitute an asterisk (*) 
for the data set name to indicate 
that you will enter control state- 
ments from your terminal. The sys- 
tem will prompt you to enter the 
control statements. A null line 
indicates the end of your control 
statements. 


OBJECT("*dsname-list" ) 
specifies a list of data sets which 


contain object modules to be 
-Included in the link edit. Because 
of CLIST restrictions, the list 


must be enclosed in single quotes; 
fully qualified names within the 
list must be enclosed in double 
quotes Cri... ft), 


LIB( ‘'dsname-list’) 

specifies one or more names of 
library data sets to be searched by 
the linkage editor to locate load 
modules referred to by the module 
being processed, that 1S> to 
resolve external references. The 
name of the Pascal/VS runtime 
library 15 implicitly appended to 
the end of this list; you need not 
specify it. 


Because of CLIST restrictions, the 
list must be enclosed in single 


quotes; fully qualified names 
within the list must be enclosed in 
double quotes (C''.l..''). 


DEBUG | 
specifies that the Pascal/VS 
interactive debugger 1s to be uti- 
lized on the resultant load module. 
This will cause the Pascal/VS debug 
library to be included among the 
libraries to be searched to resolve 
external references. 


All other operands of the PASCMOD CLIST 
are identical to their counterparts in 
the LINK command as described in the 


TSO Command Language Reference Manual. 


Example 

Operation: Create a load module from 
a compiled Pascal/VS pro- 
gram consisting of three 
object modules. 


User-identification is ABC. 
Data sets containing the 
three object modules: 


Known: 


ABC.SORT.OBJ 
ABC.SEG1.OBJ 
ABC.SEG2.0BJ 


The resulting load module is 
to be stored as a member named 
SORT itn a data set named 
ABC.PROGS.LOAD 


os user's input is in lower case; 
th system replies are 
high- lighted. ) 


pascmod * load(progs(sort)) + 
object ('sort,segl,seg2" ) 
ENTER CONTROL CARDS 
entry pascalvs 


READY 
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3.3 HOW TO DEFINE FILES 


ATTR F8&80 LRECL(80) BLKSIZEC80) RECFMCF) 

ALLOC DDNAMECSYSIN) DSNAMECINPUT.DATA) SHR 

ALLOC DDNAMECSYSPRINT) SYSOUTCA) 

ALLOC DDNAMECOUTPUTFI) DSNAMECOUTPUT.DATA) NEW SPACE(100) BLOCK(3120) 
ALLOC DDNAMECOUTPUT) DSNAMECX) USINGCF80) 

ALLOC DDNAMECINPUT) DSNAMEC*) USINGCF80) 


Figure 7. Examples of TSO data set allocation commands © 


Before you invoke the generated load | For the case of files to be opened for 

module, you must first define the files output, the LRECL, BLKSIZE, or RECFM 

that your program requires. This 15 will be assigned default values if not 

done with the ALLOC command. specified via the ATTR command. For a 
description of the defaults see "Data 

The ddname to be associated with a par- Set DCB Attributes" on page 45. 

ticular file variable in your program | 

is normally the name of the variable The ALLOC commands required for each of 

itself, truncated to eight characters. the three file variables in the example 
above and for INPUT and OUTPUT could be 

For example, the ddnames for the vari- as shown in Figure 7. 


ables declared within the Pascal decla- 
ration below would be SYSIN, SYSPRINT, 
and OUTPUTFI, respectively. 


var 
SYSIN, | 
SYSPRINT > TEXT; 
OUTPUTFILE : file of 
INTEGER; 


3-4 INVOKING THE LOAD MODULE 


dsnamel (member )] { "Loptions/] [Eparms]' ] 


Figure 8. The TSO CALL command to invoke a load module 


After the module has been created and options 
the files defined, you are ready to specifies one or more run time 
execute the program. This 1s done by options separated by either a comma 
the CALL command (see Figure 8). The oer a blank. (See "Run Time Options" 
operands of the CALL command are as on page 35.). 
follows. 
Pparms 
dsname(member ) specifies a parameter string which 
specifies the name of a partitioned 1s to be passed to the program. 
data set and the member where the The parameter string is retrieved 
load module to be invoked is from within the program by the 
stored. If the member name 15 PARMNS function. 
omitted, then the member 
"“TEMPNAME"™ will be the load module The total length of the quoted string 
invoked. Coptions plus parms) must not exceed 


100 characters. 
dsname may be either a simple name 
(to which the user identification 
15 prefixed and the qualifier 
"LOAD" its suffixed), or a fully 
qualified name in quotes. 
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READY 


pascalvs lander sysprint(Ca) list 


INVOKING PASCAL/VS R2.0 
NO COMPILER DETECTED ERRORS 
SOURCE LINES: 47; COMPILE TIME: 0.19 SECONDS; COMPILE RATE: 15032 


READY 


pascmod lander load(Cprograms(lander) ) 
READY 


alloc ddnameCinput) dsname(*) 
READY 


alloc ddnameCoutput) dsname(*) 
READY 


call programs(Clander) 'parms go here’! 


Figure 9. Sample TS50 session of a compile, link-edit, and execution. 
Figure 9 15 an example of a TSO session the terminal are in lower case; those 
Which compiles an already existing produced by the system are in upper 
source module, link edits it, and exe- case and high-lishted. 
cutes it. The commands entered from 
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This section describes how to compile 
and execute Pascal/VS programs tn an OS 
Batch environment. If you are not 
using the compiler under OS Batch then 
you may skip this section. 


§.] JOB CONTROL LANGUAGE 


Job control language (JCL) is the means 
by which you define your jobs and job 
steps to the operating system; it 
allows you to describe the work you 
Want the operating system to do, and to 
specify the tntput/output facilities 
you require. 


The JCL statements which are essential 
to run a Pascal/V5 job are as follows: 


° JOB statement, which 
the start of the job. 


identifies 


e EXEC statement, which identifies a 
job step and, in particular, speci- 


//EXAMPLE JOB 
//STEPI EXEC PASCCG,PARM='LIST’ 
//7PASC.SYSIN DD 
program EXAMPLECINPUT,OUTPUT); 
var 
A, B: REAL; 
begin 
RESETCINPUT); 
While not EOFCINPUT) do 
begin 
READLNCA,B); 
WRITELNC' SUM 
WRITELNC' PRODUCT 
end 


*, A+B); 
',AX*B); 


//GO.INPUT DD x 
3.0 4.0 
3.14159 1.414 
1.Q0E-10 2.0E-10 
-10.0 102.0 

7% 


Figure 10. 


The job control statements shown in 
Figure 10 are sufficient to compile and 
execute a Pascal/VS program consisting 
of one module. This program uses only 
the standard files INPUT and OUTPUT. 
For a more generalized description of 
input/output refer to "How to Access 
Data Sets" on page 29 and "Using 
Input/Output Facilities" on page 45. 


Any options to be passed to the compil- 
er are placed within the PARM string of 
the EXEC statement. 


4.0 RUNNING A PROGRAM UNDER OS BATCH 


fies the program to be executed, 
either directly or by means of a 


cataloged procedure (described 
subsequently). 

® DD (data definition) statement, 
which defines the input/output 


facilities required by the program 
executed in the job step. 


° /* (delimiter) statement, which 
separates data in the input stream 
from the job control statements 
that follow this data. 


A full description of job control lan- 
guage iS given in the publication 


OS/VS2 JCL (6028 - 0692). 


4.2 HOW TO COMPILE AND EXECUTE A PRO- 
GRAM 


Sample JCL to run a Pascal/VS program 


In the sample JCL, “EXAMPLE” is the 
name of the job. The job name identi- 
fies the job within the operating sys- 
tem; it is essential. The parameters 
required in the JOB statement depend on 
the conventions established for your 
installation. 


The EXEC statement invokes the IBM sup- 
plied cataloged procedure named 
PASCCG. When the operating system 
encounters this name, 1t replaces the 
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EXEC statement with a set of JCL state- 
ments that have been written previously 
and cataloged ina system library. The 


cataloged procedure contains two 
steps: 
PASC invokes the Pascal/V5 compiler 


to produce an object module. 


GO. invokes the LOADER to process 
the object module by loading it 
into memory and including the 
appropriate runtime. library 
routines. The resulting exe- 
cutable program is immediately 
executed. 


The DD statement named "PASC.SYSIN"™ 
indicates that the program to be proc- 
essed in procedure step PASC follows 
immediately in the card deck. "SYSIN" 
is the name that the compiler uses to 
refer to the data set or device on 
which it expects to find the program. 


The delimiter statement /* indicates 
the end of the data. 


The DD statement named "GO.INPUT™ indi- 
cates that the data to be processed by 
the program Cin procedure step GO) fol- 
lows immediately in the card deck. 


4.3 CATALOGED PROCEDURES 


Regularly used sets of job control 
statements can be prepared once, given 
a name, stored in a system library, and 
the name entered in the catalog for 
that library. Sucha set of statements 
is termed a cataloged procedure. A 
cataloged procedure comprises one or 
more job steps (though it 1s not a job, 
because it must not contain ae JOB 
statement). It is included ina job by 
specifying 1ts name in an EXEC state- 
ment instead of the name of a program. 


Several IBM-supplied cataloged proce- 
dures are available for use with the 
Pascal/VS compiler. It 1s primarily by 
means of these procedures that a 
Pascal/VS job will be run. 


The use of cataloged procedures saves 
time and reduces errors in coding fre- 
quently used sets of job control state- 
ments. If the statements in a 
cataloged procedure do not match your 
requirements exactly, you can easily 
modify them or add new statements for 
the duration of a job. 


It 185 recommended that each installa~ 
tion review these procedures and modify 
them to obtain the most efficient use 
of the facilities available and to 
allow for installation conventions. 
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4.4 IBM SUPPLIED CATALOGED PROCEDURES 


The standard cataloged procedures sup- 
plied for use with the Pascal/V5 com- 
piler are: 


PASCC Compile only 
PASCCG Compile, load-and-execute 
PASCCL Compile and link edit 
PASCCLG Compile, link edit, and exe- 
cute 
“These cataloged procedures do not 


include a DD statement for the source 
program; you must always provide one. 
The DDname of the input data set 15 
SYSIN; the procedure step name which 
reads the input data set is PASC. For 
example, the JCL statements that you 
might use to compile, link edit, and 
execute a Pascal/VS program is as fol- 
lows: 


//JOBNAME JOB 
//STEP1 EXEC PASCCLG 
//PASC.SYSIN DD x 


Cinsert Pascal/VS program here 
to be compiled) 


7/¥® 


The Listings and diagnostics produced 
by the compiler are directed to the 
device or data set associated with the 
DDname SYSPRINT. Each cataloged proce- 
dure routes DDname-SYSPRINT to the out- 
put class where the system messages are 
produced (SYSOUT=). 


The object module produced from a com- 
pilation is normally placed in a tempo- 
rary data set and erased at the end of 
the job. If you wish to save it ina 
cataloged data set or punch it to cards 
then the DDname SYSLIN in procedure 
step PASC must be overridden. For 
example, to compile a program stored in 
data set. 


"T123.SORT.PASCAL" 


and to store the resulting object mod- 


ule ina data set named 


"T123.SORT.OBJ™ 
the following JCL might be employed: 


//SOBNAME JOB 

J/STEPIL EXEC PASCC 

//PASC.SYSIN DD DSN=T123.SORT.PASCAL, 
17 DISP=SHR 
//PASC.SYSLIN DD DSN=T123.SORT.OBJ, 

// UNIT=TSOPACK, 

47 | DISP=C(NEW,CATLG) 


4.4.1 Compile Only (PASCC) 


//PASCC 
17% 

//¥* INVOKE PASCAL/VS COMPILER 
17/% 

S/PASC EXEC 
//QUCODE DD 
//OUTPUT DD 
7/STEPLIB ODD 
S/SYSLIB DD 


SPACE=CTRK,(2,5)), 


// 

//SYSLIST ODD 
/ SPACE=CTRK,(2,5)) 
7/SYSMSGS DD 
//SYSOIN DD 
// SPACE=CTRK, (2,5)) 
//SYSPRINT DD 
//SYSTERM DD 
/SYSTIN DD 
// SPACE=CTRK,(€2,5)) 
//3SYSUTI DD 


DUMMY 


SPACE=CTRK,(€2,5)), 


PROC SYSOUT="X*,INCLLIB="SYS1.PASCALVS.MACLIB' 


PGM=PASCALI,PARM=,REGION=512K 
SYSOUT=&SYSOUT 
SYSOUT=&SYSOUT 
DSN=SYS1.PASCALVS.LINKLIB,DISP= SHR 
DSN=&INCLLIB,DISP=SHR 
// DD DSN=SYS1.PASCALVS.MACLIB,DISP=SHR 
4/SYSLIN DD 
4 / 


DSNAME=&&LOADSET,UNIT=SYSDA,DISP=C(MOD,PASS), 


DCB=(LRECL=80,BLKSIZE=3120,RECFM=FB,DSORG=PS) 
UNIT=SYSDA,DISP=CNEW, DELETE), 


DSN=SYS1.PASCALVS .MESSAGES, DISP=SHR 
UNIT=SYSDA,DISP=(NEW, DELETE), 


SYSOUT=&SYSOUT, DCB=CRECFM=VBA,LRECL=133,BLKSIZE=685) 
UNIT=SYSDA,DISP=(CNEW, DELETE), 
UNIT=SYSDA,DISP=CNEW, DELETE), 


DCB=(LRECL=80,BLKSIZE=3120,RECFM=FB,DSORG=PS) 


//SYSUT2 DD 
47 SPACE=CTRK,(02,5)), 


UNIT=SYSDA,DISP=CNEW, DELETE), 


// DCB=CLRECL=80,BLKSIZE=3120,RECFM=FB,DSORG=PS) 


//SYSXREF DD 
// SPACE=CTRK,(2,5)) 
//UCODE DD SYSOUT=&SYSOUT 


Figure ll. 


This cataloged procedure (Figure 11) 
compiles one Pascal/VS source module 
and produces an object module. It con- 
sists of one step, PASC, which is com- 
mon to all of the cataloged procedures 
described in this chapter. 


Step PASC reads in the source module, 
diagnoses errors, produces a listing, 
and generates an object module to the 
data set associated with DDname SYSLIN. 


Cataloged procedure PASCC 


UNIT=SYSDA,DISP=CNEW, DELETE), 


The DD statement for the object module 
defines a temporary data set named 
&&LOADSET. The term MOD is specified 
in the DISP parameter and as a result, 
if the procedure PASCC is’ invoked 
several times in succession for differ- 
ent source modules, &&LOADSET will 
contain a concatenation of object mod- 
ules. The linkage editor and loader 
will accept such a data set as input. 
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6.4.2 Compile, Load, and Execute 
(PASCCG) 


//PASCCG 


PROC SYSOUT=*,INCLLIB="SYS1.PASCALVS.MACLIB’, 


// LKLBDSN="SYS1.PASCALVS.LOAD', 
// LINKLIB="SYS1.PASCALVS.LINKLIB’ 


S/PASC EXEC 


PGM=PASCALI,PARM=,REGION=512K 


Cthis step 1s identical to the PASC step in procedure PASCC) 


//G0 PGM=LOADER,COND=(8,LE,PASC),PARM="EP=PASCALVS' 


//OUTPUT 


/SYSLIB DSN=&LKLBDSN,DISP=SHR 


SYSOUT=&SYSOUT, DCB=CRECFM= VBA, LRECL= 133, BLKSIZE= 685) 


fb DSN=SYS1.PASCALVS.LOAD,DISP=SHR 


//SYSLIN 
S/SYSLOUT 
//SYSPRINT DD 


SYSOUT=&S5SYSOUT 
Figure l2. 


In this cataloged 
(Figure 12), the first two steps com- 
pile a Pascal/VS source module _ to 
produce an object module. In the third 
step (named GO), the loader is 
executed; this program processes the 


object module produced by the compiler. 


and executes the resultant executable 
program immediately. 


The DD statement labeled SYSLIB in step 
GO describes the libraries from which 
external references are to be resolved. 
If you have a library of your own from 
which you would like external refer- 
ences to be resolved, then pass its 
name in the LKLBDSN operand. 


Object modules from previous compila- 
tions may also be included in the load- 
er's input stream by concatenating them 
in the SYSLIN DD statement. 
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Cataloged procedure PASCCG 


procedure 


DSN=&&LOADSET, DISP=C(OLD, DELETE) 
SYSOUT=&SYSOUT, DCB=CRECFM=VBA,LRECL=133) 


As an example, a program ina data set 
named "DOE.SEARCH.PASCAL™ needs to bea 
compiled and then loaded with an object 
module named "DOE.SORT.OBJ". In addi- 
tion, several external routines are 
called ee within the program which 
reside a library named 
"DOE.MISC. OBJLIB". The following JCL 
statements would compile the program 
and execute it. 


//DOE JOB. 
//STEP1 EXEC PASCCG, 
// LKLBDSN="DOE.MISC.OBJLIB’ 
/7PASC.SYSIN DD DSN=DOE.SEARCH.PASCAL, 
// DISP=SHR 
ibs. SYSLIN DD ~ 
DD DSN=DOE.SORT.OBJ, 
7 | DISP=SHR 


4.4.3 Compile and Link Edit (PASCCL) 


//PASCCL 


PROC SYSOUT=X%,INCLLIB="SYS1.PASCALVS.MACLIB’', 


// LKLBDSN="SYS1.PASCALVS.LOAD', 
if LINKLIB="SYS1.PASCALVS.LINKLIB' 


//7PASC EXEC 


PGM=PASCALTI,PARM=,REGION=512K 


Cthis step 1s identical to the PASC step in procedure PASCC) 


//LKED EXEC 


S/SYSLIB DSN=&LKLBDSN,DISP=SHR 


PGM=IEWL ,PARM="LIST,MAP', COND=(8,LE,PASC) 


// DSN=SYS1.PASCALVS.LOAD,DISP=SHR 


//SYSLIN 
4/ DDNAME=SYSIN 


//SYSULMOD 
47 


SPACE=CTRK,(5,3,1)) 
//SYSPRINT DD SYSOUT=&SYSOUT 


7/SYSUT1 DD 


Figure 13. 


In this cataloged procedure 
(Figure 13), a Pascal/VS source module 
is compiled to produce an object madule 
and then the linkage editor 1s executed 
to produce a load module. 


The linkage editor step is named LKED. 
The DD statement with the name SYSLIB 
Within this step specifies the library, 
or libraries, from which the linkage 
editor will obtain appropriate modules 
for inclusion in the load module. The 
linkage editor always places the load 
modules 1t creates in the standard data 
set defined by the DD statement with 
the name SYSLMOD. This statement in 
the cataloged procedure specifies a new 
temporary library &&GOSET, tn which the 
load module will be placed and given 
the member name GO. 


In specifying a temporary library, it 
is assumed that vou will execute the 
load module in the same job; if you 
want to retain the module, you must 
substitute your own statement for the 
DD statement with the name SYSLMOD. 


When linking multiple modules 
together, you must supply an entry 
point. The name of the entry point may 


Cataloged procedure PASCCL 


DSN=&&LOADSET,DISP=COLD, DELETE) 
DSN=&&GOSET(GO),UNIT=SYSDA,DISP=C(€,PASS), 


UNIT=SYSDA,SPACE=(CYL,(1,1)) 


be either the name of your main 
program, oor the name PASCALVS. To 
define an entry point, a linkage editor 
ENTRY control card must be processed by 
the linkage editor. This may be done 
conveniently with a DD statement named 
SYSIN for step LKED which references 
instream data: 


//LKED.SYSIN DD X 
ENTRY PASCALVS 
/¥ 


Multiple invocations of the PASCC cata- 
loged procedure concatenates object 
modules. This permits several modules 
to be compiled and link edited conven- 
1ently tn one job. The JCL shown tn 
Figure 14 on page 28 compiles three 
source modules and then link edits them 
to produce a single load module. With- 
in the example, each source module isa 
member of a partitioned data set named 


"DOE.PASCAL.SRCLIB1"”. 


The member names are MAIN, SEG1, and 
SEG2. The resulting load module is to 
be placed in a preallocated library 
named "DOE.PROGRAMS.LOAD™ as a member 
named MAIN. 
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//SOBNAME JOB (DOE),*"JOHN DOE’ 

//STEPI EXEC PASCC 

//PASC.SYSIN DD DSN=DOE.PASCAL.SRCLIBICMAIN),DISP=SHR 
//STEP2 EXEC PASCC | 
//7PASC.SYSIN DD DSN=DOE.PASCAL .SRCLIBICSEG1),DISP=SHR 
//STEP3 EXEC PASCCL 


//PASC.SYSIN DD DSN=DOE. PASCAL .SRCLIB1(SEG2),DISP=SHR 
//LKED.SYSLMOD DD DSN=DOE.PROGRAMS.LOAD(MAIN),DISP=OLD 
//LKED.SYSIN DD * 

ENTRY PASCALVS 
Sa 


Figure 14. Sample JCL to perform multiple compiles anda link edit. 


46.4.4 Compile, Link Edit, and Execute 
(PASCCLG ) 


//PASCCLG PROC SYSOUT=*%,INCLLIB="SYS1.PASCALVS .MACLIB’, 
7 LKLBDSN='SYS1. PASCALVS.LOAD', 

// LINKLIB='SYS1.PASCALVS. LINKLIB" 

S/PASC EXEC PGM=PASCALI,PARM=,REGION=512K 


(this step is identical to the PASC step in procedure PASCC) 
//LKED EXEC PGM=IEWL,PARM="LIST,MAP*',COND=(8,LE,PASC) | | 

(this step is identical to the LKED step in procedure PASCCL) 
4/60 EXEC PGM=*.LKED.SYSLMOD,COND=((8,LE,PASC),(€8,LE,LKED)) 


//QUTPUT DD SYSOUT=&SYSOUT,DCB=CRECFM=VBA,LRECL=133,BLKSIZE=685) 
//SYSPRINT DD SYSOUT=&SYSOUT, DCB=CRECFM=VBA,LRECL=133) | 


Figure 15. Cataloged procedure PASCCLG 


This cataloged procedure (Figure 15) | The first two steps of this procedure 
performs a comptlation, invokes’ the are identical to those of the PASCCL 
linkage editor to form a load module | procedure. An additional third step 
from the resulting object module, then (named GO) executes. your program. 


the load module is executed. 
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4.5 HOW TO ACCESS AN “INCLUDE LIBRARY 


The DD statement named SYSLIB in proce- 
dure step PASC defines the libraries 
from which tncluded source 18s to be 
retrieved. 


When the compiler encounters an “IN- 
CLUDE statement within the source mod- 
ule, i1t will search the library or 
libraries specified by SYSLIB for the 
member named in the statement. When 
found, the library member becomes the 
input stream for the compiler. After 
the compiler has read the entire 
member, it will continue where it left 
off in the previous input stream. 


You may specify an ZINCLUDE library by 
means of the INCLLIB parameter of the 
cataloged procedures, or by overriding 
the SYSLIB DD statement by specifying a 
DD statement with the name PASC.SYSLIB. 


Example 


//SJOBNAME JOB 

7/7 EXEC PASCCG 

//PASC.SYSLIB DD DSN=...,DISP=SHR 
//PASC.SYSIN DD * 


oe @¢ 


7¥ 


4.6 HOW TO ACCESS DATA SETS 


Every file variable operated upon in 
your program must have an associated DD 
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statement for the GO step which exe- 
cutes your program. The DDname to be 
associated with a particular file vari- 
able in your program 1s normally the 
name of the variable itself, truncated 
to eight characters. 


For example, the DDnames for the vari- 
ables declared within the Pascal decla- 
ration below would be SYSIN, SYSPRINT, 
and OUTPUTFI, respectively. 


var 
SYSIN;, 
SYSPRINT: TEXT; 
OUTPUTFILE: file of 
_~INTEGER; 


The file named OUTPUT need not be 
explicitly defined by you if you use 
the cataloged procedures. Both cata- 
loged procedures which execute a 
Pascal/VS program CPASCCG and PASCCLG) 
contain a DD statement for QUTPUT. 
OUTPUT is assigned to the output class 
where the system messages and compiler 
listings are produced (SYSOUT=*). 


If the Pascal/VS input/output manager 
attempts to open a data set which has 
an incomplete data control block (DCB), 
it will assign default values to the 
DCB as described in "Data Set DCB 
Attributes" on page 45. If you prefer 
not to rely on the defaults, then the 
LRECL, BLKSIZE, and RECFM should be 
explicitly specified in the DCB operand 
of the associated DD statement for a 
newly created data set (that 1s, one 
whose DISP operand is set to NEW). 
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4.7 EXAMPLE OF A BATCH JOB 


//SOBNAME JOB 
//STEPI1 EXEC PASCC, PARM="NOXREF' 
//PASC.SYSIN DD X 
program COPYFILE; 
type 
F&0 = file of | 
packed array[1..80] of CHAR; 


var 
-INFILE, OUTFILE: F80; 
procedure COPY(var FIN,FOUT: F80); 
external ; 
begin 
RESETCINFILE); 
REWRITECOUTFILE); 
COPYCINFILE,OUTFILE); 
end. 
7% | 
//STEP2 EXEC PASCCLG, PARM=*NOXREF* 
//PASC.SYSIN DD xX 
segment I0; 
type 
F80 = file of 
packed array[1..80] of CHAR; 
procedure COPY(var FIN,FOUT: F8&0);3 
external; 


procedure COPY; 
begin 
while not EOQFCFIN) do 
begin 
FOUTA := FINA; 
PUTCFOUT); 
GETCFIN) 
end 


//LKED.SYSIN DD & 
ENTRY PASCALVS 

1% 

//GO.INFILE DD x 


(data to be copied into data set goes here) 


¢ 8 @ 


1% 
//GO.OUTFILE DD DSN=P123456.TEMP.DATA,UNIT=TSOUSER, 
4/ DISP=(NEH,CATLG), 

// DCB=(RECFM=FB,LRECL=80,BLKSIZE=-3120), 
// SPACE=(3120,(1,1)) 


Figure 16. Example of a batch job 
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Compile time options indicate what fea- 
tures are to be enabled or disabled 
when the compiler is invoked. The fol- 


5.0 COMPILER OPTIONS 


lowing table lists all compiler options 
with their abbreviated forms ahd their 
default values. 


Compiler Option | Abbreviated Name Default 


CHECK/NOCHECK --- CHECK 
DEBUG/NODEBUG --- NODEBUG 
GOSTMT/NOGOSTMT GS/NOGS GOSTMT 
LANGLVLCSTANDARD)/ LANGLVL(STD)/ LANGLVLCEXTENDED) 
LANGLVL (EXTENDED) LANGLVLCEXT) 
LINECOUNT(n) LC(n) LINECOUNT(60) 
LIST/NOLIST --- NOLIST 
MARGINS(m,n) MAR(m,n) MARGINS(1,72) 
OPTIMIZE/NOOPTIMIZE OPT/NOOPT OPTIMIZE 
PAGEWIDTH(n) PWCn) PAGEWIDTH(128) 
PXREF/NOPXREF --- PXREF 
SEQUENCE(m,n)/NOSEQUENCE SEQ(m,n)/NOSEQ SEQUENCE(73,80) 
SOURCE/NOSOURCE S/NOS SOURCE 
WARNING/NOWARNING W/NOW WARNING 
XREF/NOXREF X/NOX - XREF (SHORT) 


§.1 CHECK/NOCHECK 


If the CHECK option 15 enabled, the 
Pascal/VS compiler will generate 
inline code to perform runtime error 
checking. The %*CHECK feature can be 
used to enable or disable particular 
checking code at specific locations 
Within the source program. If NOCHECK 
15 specified, all runtime checking will 
be suppressed and all *CHECK statements 
will be tgnored. The runtime errors 
ee may be checked are listed as fol- 
OWS: 


CASE statements 
Any case statement that does not 
contain an otherwise clause is 
checked to make sure that the 
selector expression has aevalue 
equal to one of the case label val- 
ues. 


Function routines : 
A call to ae function routine is 
checked to verify that the called 
function returns a value. 


Pointers 
A reference to an object which 15 
based upon a pointer variable 15s 
checked to make sure that the 
i does not have the value 
Nid. 


Subrange scalars 
Variables which are declared as 
subrange scalars are tested when 
they are assigned a value to guar- 
antee that the value lies within 
the declared bounds o f the 
variable. This checking may occur 
when either the variable appears on 
the left side of an assignment 


statement or immediately after a 
routine call in which the variable 
Was passed as a Var parameter. 
(This latter case also includes a 
call to the READ procedure). 


For the sake of efficiency, the 
compiler may suppress checking 
when it is able to determine that 
it 15 semantically unnecessary. 
For example, the compiler will not 
generate code to check the first 
three assignment statements below; 


however, the last three will be 
checked. 
var 
A : -10..10; 
B : 0..20; 
A = B - 10; (¥no check) 
B == ABSCA); (X¥no check) 
A := B DIV 23 C¥no check) 
A := B; (Xcheck ¥) 
B := AxX10; (Xcheck ¥*) 
A = 


—~B; (*¥ check ¥) 


The compiler makes no explicit 
attempt to diagnose the use of 
uninitialized variables; however, 
to help you detect such errors, the 
SETMEM runtime option has been pro- 
vided (see "Run Time Options” on 
page 35). 


Subscript ranges 


Subscript expressions within 
arrays or spaces are tested to 
guarantee that their values lie 
within the declared array or space 
bounds. As in the case of subrange 
checks, the compiler will suppress 
checks that are semantically 


unnecessary. 
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String truncation 
Assignments to varying length 
strings are checked to make sure 
that the destination string vari- 
able 1s declared large enough to 
contain the source string. 


When a runtime checking error occurs, a 
diagnostic message will be displayed on 
your terminal followed by a traceback 
of the routines which were active when 
the error occurred. If the program is 
invoked from OS Batch, the diagnostic 
message and traceback will be sent to 
the data set or device associated with 
DDname SYSPRINT. You may direct the 
error diagnostics to any file of your 
choice with the "ERRFILE"™ option (see 
"Run Time Options” on page 35). 


See "Reading a Pascal/VS Trace Back" on 
page 59 for an example of a traceback 
due to a checking error. 


"User Handling of Execution Errors" on 
page 62 describes how checking errors 
may be tntercepted by your program. 


5.2 DEBUG/NODERUG 


An interactive debugging facility is 
available to debug Pascal/VS programs. 
The debugger 1s described in "Pascal/VS 
Interactive Debugger™ on page 65. If 
the option DEBUG is enabled, the com- 
Ppiler will produce the necessary infor- 
mation that Debug needs in order to 
operate. 


The DEBUG option also implies that the 
GOSTMT option is active. 


NODEBUG indicates that Debug cannot be 
used for this segment. 


5.3. GOSTMT/NOGOSTMT 


The GOSTMT option enables the inclusion 
of a statement table within the object 
code. The entries within this table 
allow the run-time environment to iden~ 
tify the source statement causing an 
execution error. This statement table 
also permits the tnteractive debugger 
to place breakpoints based on source 
statement numbers. For a description 
of the debugger see "Pascal/VS Interac- 
tive Debugger" on page 65. 


The inclusion of the statement table 
does not affect the execution speed of 
the compiled program. 


NOGOSTMT will prevent the statement 
table from being generated. 
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5.4 LANGLVL() 


If LANGLVLCSTANDARD) is specified, the 
compiler will diagnose all constructs 
and features which do not conform to 
"standard" Pascal. Violations of the 
standard will appear as warnings. In 
addition, many of the predeclared iden- 
tifiers od are unique to Pascal/VS 
will | ot be recognized when 
LANGLVLCSTANDARD) is specified. 


LANGLVLCEXTENDED), which is the 
default, specifies that the full 
Pascal/VS language is to be supported. 


5.5 LINECOUNT(N) 


The LINECOUNT option specifies the num- 
ber of lines to appear on each page of 
the output listing. The maximum number 
of lines to fit on a page depends on 
the form to which the output 1s being 
printed. 


The default is 60 lines to the page. 


5.6  LIST/NOLIST 


The LIST/NOLIST option controls the 
generation or suppression of the trans- 
lator pseudo-assembler listing (see 
"Assembly Listing™ on page 42). 


Note: The NOLIST option will cause any 
“LIST statement within the source pro- 
gram to be ignored. 


5.7 _MARGINS(M,N) 


The MARGINS(m,n) option sets the left 
and right margin of your program. The 
compiler scans each line of your pro-~ 
gram starting at column m and ending at 
column n. Any data outside these mar- 
gin limits is ignored. The maximum 
right margin allowed is 100 The speci- 
fied margins must not overlap’ the 
sequence field. 


The default is MARGINS(1,72). 


Note: When the PASCALVS clist is being 
invoked under TS0, the subparameters of 
the MARGINS option must be enclosed in 
quotes. For example, 


MARGINS('1,72") 


5.8 OPTIMIZE/NOOPTIMIZE 


aA NAIR Mt ALA IOLEN PO CNA Te a PETES 


The OPTIMIZE option indicates that the 
compiler 1s to generate optimized code. 
NOOPTIMNIZE indicates that the compiler 
is not to optimize. 


5.9 PAGEWIDTH(N) 


The PAGEWIDTH option specifies the max- 
imum number of characters® that may 
appear on a single line of the output 
listing. This number depends on the 
page form and the printer model. 


The default page width is 128 charac- 
ters. 


5.10 PXREF/NOPXREF 


The PXREF option specifies that the 
right margin of the output listing 15 
to contain cross reference entries (see 
"Page Cross Reference Field" on page 
38). WNOPXREF suppresses these entries. 


5.1) SEQUM,NJ/NOSEQ 


The SEQ(m,n) option specifies which 
columns within the program being com- 
piled are reserved for a 
field. The starting column of the 
sequence field ism; the last column of 
the field isn. 


The compiler ‘does not process sequence 
fields; but serve only to identify 
lines itn the source listing. If the 
sequence field is blank, the compiler 
will insert a line number in the cor- 
responding area in the source listing. 


NOSE@ indicates that there is to be no 
sequance field. 


The default is S5EQ(73,80). 
NOTES: 


® The sequence field must not overlap 
the source margins. 


® When the PASCALVS clist is being 
invoked under TSO, the subparame- 


control characters. 


sequence 


ters of the SEQ option must be 
enclosed in quotes. For example, 


SEQC'73,80") 


5.12 SOURCE/NOSOURCE 


The SOURCE/NOSOURCE option controls 
the generation or suppression of the 
compiler source listing. 


Note: The NOSOURCE option will cause 
any “PRINT statement within the source 
program to be ignored. 


5.13 WARNING/NOWARNING 


This option controls the generation or 
suppression of Warning messages. The 
NOWARNING specification will Suppress 
warning messages from the compiler. 


5.14 XREF/NOXREF 


The XREF/NOXREF option controls the 
generation or suppression of the 
cross-reference portion of the source 
listing. (See "Cross-reference List- 
ing” on page 40). 


Either a short or long cross-reference 
listing can be generated. A long 
cross-reference listing contains all 
identifiers declared in the program. A 
short listing consists of only those 
identifiers which were referenced. 


To specify a particular listing mode, 
either the word LONG or SHORT is placed 
after the XREF specification and 
enclosed within parentheses. If no 
such specification exists, SHORT is 
assumed. For example, the specifica-~ 
tion 


XREFCLONG) 


would cause along cross-reference 


table to be generated. 


Note: If the PASCALVS clist is being 
invoked under 150, a subparameter 
CSHORT or LONG) must be specified with 


| the XREF option; there are no defaults. 


The number specified in the PAGEWIDTH option does not include carriage 
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Features within the Pascal/VS run time 
environment may be enable or disabled 
by passing options to the Pascal/VS 
program. These options are passed toa 
Pascal/VS program through the parame- 
ter passing mechanism. To distinguish 
run time options from the parameter 
string intended to be processed by the 
program, the options must preceed the 
parameter string Cif any) and be termi- 
nated with a slash ("/"). 


The following 1s a list of Supported 
run time options. 


COUNT 
specifies that instruction fre- 
quency information 1s to be col- 


lected during program execution. 
After the program is completed, 
this information 1s written to file 
OUTPUT. 


This option will only have an 
effect if the program was both com- 
piled and link-edited with the 
DEBUG option. 


DEBUG 

specifies that the interactive 
debugger (see "Pascal/VS Interac - 
tive Debugger" on page 65) is to 
gain initial control when you 
invoke your program. Note: this 
option is valid only if the load 
module was generated with the DEBUG 
option (see "Module Generation 
Options™ on page 12). 


ERRCOUNT=n 


ERRCOUNT(n) 
specifies how many non-fatal 
errors are allowed to occur before 
the program is abnormally termi- 
nated. The default is 20. 


Note to cCMS users: due to the 
&-character tokenization conven- 
tion of CMS, a blank must precede 
the '=" symbol in the ERRCOUNT spe- 
cification. 


Example: 
modname ERRCOUNT =1/ 
ERRFILE-ddname 


ERRFILE(ddname ) 
specifies the DDname of the file to 
which all run time diagnostics are 
to be written. Under CMS and TSO, 
diagnostics are displayed on your 
terminal by default. Under 05S 
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6.0 RUN TIME OPTIONS 


batch, the default error file is 
SYSPRINT. 


Note to CMS users: due to the 
&8-character tokenization conven- 
tion of CMS, the '=" symbol must be 
surrounded with blanks. 


Example: 
modname ERRFILE = OQUTPUT/ 


HEAP = n 

specifies the number of kilobytes? 
that the heap is to be "eaxtanded" 
each time the heap overflows. The 
heap 1s where memory is allocated 
when the procedure NEW 15 called. 
When the end of the heap is 
reached, the GETMAIN supervisor 
call is invoked to allocate more 
memory for the heap. If the length 
of the space being required by NEW 
15 greater than "n"™, then the 
amount to be allocated will be the 
length of the space rounded up to 
the next kilobyte (1024 bytes). 


There 1S a significant overhead 
penalty for each invocation of GET- 
MAIN. If "n"™ 15 too small, GETMAIN 
Will be invoked frequently and the 
execution speed of the program will 
be affected. If "n" 1s too large, 
the heap will contain memory that 
15 never used. 


The default HEAP attribute is 12 
kilobytes. 


MAINT 

specifies that when ae run time 
error occurs, the trace back 1s to 
list active run time support rou- 
tines. These routines begin with a 
AMP prefix and are normally sup- 
pressed from the trace back 
listing. This option is used to 
locate bugs within the run time 
environment. 


NOCHECK 
specifies that any checking errors 
detected within the program are to 
be ignored. 


NOSPIE 
specifies that the Pascal/VS run 
time enviroment is not to issue a 
SPIE request and therefore will not 
intercept program interrupts. 


STACK =n 
specifies the number of kilobytes? 
that the run time stack is to be 
"axtended™” each time the stack 
overflows. The run time stack 15 


A “kilobyte” is defined as 1024 bytes in the context of this manual. 
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where the dynamic storage area 
(DSA) of a routine is allocated 
When the routine is invoked. When 
the end of the stack 1s reached, 
the GETMAIN supervisor call is 
invoked to allocate more memory for 
the stack. If the length of the 
DSA being required is greater than 
WH, then the amount to be allo- 
cated will be the length of the DSA 
rounded up to the next kilobyte 
(1024 bytes). 


There is a significant overhead 
penalty for each invocation of GET- 
MAIN. If "n* is too small, GETMAIN 
Will be invoked frequently and the 
execution speed of the program will 
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be affected. If "n™ is too large, 
the stack will occupy more memory 
than 1s necessary. 


The default STACK attribute is 12 
kilobytes. 


SETMEM 


specifies that upon entry to each 
Pascal/VS routine, each byte of 
memory in Which the routine‘s local 
variables are allocated will be set 
to a specific value, namely 'FE' 
Chexadecimal). This option aids in 
locating the source of intermit- 
tent errors which occur because of 
the use of uninitialized 
variables. 
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7.0 HOW TO READ PASCAL/VS LISTINGS 


7.1 SOURCE LISTINGS 


PASCAL/VS RELEASE 2.0 UTILITY: Ol/27781 14:48:54 PAGE 5 
B PCI STMT # SOURCE PROGRAM PAGE XREF 
INCLUDE 1 FROM SYSLIB C(GLOBALS ) 
Vr eSS Se ere tes 2s Stee 5 - == 7/—=-7 -V--SES NO 
1: 00000100 
1: ltype 00000200 R 
1: | NAMEPTR = QNAMEREC; 00000300 X* x 
1: | WNAMEREC = 00000400 x 
1: record 00000500 R 
1: | NAME STRINGC 30); 00000600 xX P 
1: | LEFT LINK, 00000700 xX 
1: | RIGHT_LINK: NAMEPTR; 00000800 x* 5 
1: | end; 00000900 R 
1: 00001000 
1: l|\def OO001100 R 
1: | TREETOP NAMEPTR; 00001200 x 5 
00000180 
1 {procedure SEARCH( 00000190 R x 
1 | const ID: STRING; 00000200 R * P 
1 | var PTR: NAMEPTR); 00000210 R * 5 
l | EXTERNAL; 00000220 x 
| 00000221 
1 lprocedure SEARCH; 00000222 R x 
1 lvar 00000230 R 
1 LPTR = NAMEPTR; 00000240 x 5 
SITS T===Z===ERROR=> $17 
1 begin 00000250 R 
1 1 | PTR := nil; 00000260 5 P 
1 2 | LPTR := TREETOP; 00000270 5 5 
1 1 3 | while LPTR <> nil do 00000280 R5 PR 
1 | | begin 00000290 R 
1 1 1 q | with LPTRa do 00000300 RS5OR 
1k. 2 5 | if NAME = ID then 00000310 R55R 
1idi1i | begin 00000320 R 
el1liil 6 | PTR == LPTR 00000330 5 5 
2i1i1ii1 7 | return 00000340 R 
SMI IZSZSZ=X=Z=ERROR=> $8 
zeae ieee oe | end 00000350 R 
1idi1i | else 00000360 R 
1i2i1 & | if ID < NAME then 00000370 R55R 
1 i2i1 9 | LPTR == LEFT_LINK 00000380 5 5 
1121 | else 00000390 R 
1121 10 | LPTR == RIGHT_LINK 00000400 5 5 
1 1 | end (XwhileX) 00000410 R 
lend; 00000420 R 
NUMBER OF ERRORS DETECTED: 2 
DIAGNOSTIC MESSAGES ON PAGE(S): 5 
ERROR 8: SEMICOLON ";™" EXPECTED 
ERROR 17: ":" EXPECTED 
PARAMETERS PASSED: DISK NOXREF LIB (€ MACLIB ) 
OPTIONS IN EFFECT: MARGINS(C1,72), SEQC73,80), LINECOUNTC60), CHECK, 
GOSTMT, OPTIMIZE, PXREF, SOURCE, WARNING 


Figure 17. 


SOURCE LINES: 53; COMPILE TIME: 


Sample source listing 
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0.43 SECONDS; 


COMPILE RATE: 7441 LPM 
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The source listing contains informa- 
tion about the source program including 
nesting information of blocks and cross 
reference information. 


7.1.1 Page Headers 


The first line of every page contains 
the title, if one exists. The title is 
set with the “TITLE statement and may 
be reset whenever necessary. If no 
title has been specified, then the line 
Will be blank. 


The second line begins with "PASCAL/VS 
RELEASE x". This line lists informa- 
tion in the following order. 


1.. The PROGRAM/SEGMENT name is given 
before a colon. This name becomes 
the name of the control section 
CCSECT) iain which the generated 
object code will reside. 


2. Following the colon may be the name 
of the procedure/function defi- 
nition which was being compiled 
when the page boundary occurred. 


3. The time and date of the compile. 
G4. The page number. 


The third line contains column 
headings. If the source being compiled 
came from a library Ci.e. Z*ZINCLUDE), 
then the last line of the heading iden- 
tifies the library and member. 


7.1.2 Nasting Information 


The left margin contains nesting infor- 
mation about the program. The depth of 
nesting is represented by a number. 
The heading over this margin is: 


BPCHI STMT 


B - indicates the depth of "BEGIN 
block nesting. 


P - indicates the depth of 'P*rocedure 
nesting. 


c = indicates the nesting of 
"Cfonditional statements. Conditional 
statements are If and case. 


= indicates the nesting of 
'T'terative statements. Iterative 
statements are for, repeat and while. 


STMT is the heading of a column that 
numbers the executable statements of 
each routine. If the source line orgi- 
nated from an INCLUDE file, the include 
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number and a colon C':'} precede the 
statement number. 


Pascal/VS numbers the statements of a 
routine. These numbers are referenced 
when a run time error occurs: (see 
"Reading a Pascal/VS Trace Back" on 
page 59) and when break points are spe- 
cified in the interactive debugger (see 
"Pascal/VS Interactive Debugger" on 
page 65). 


All non-empty statements are numbered 
except the repeat statement. However, 
the until portion of a repeat statement 
is numbered. 


A begin/end statement is not numbered 
because it serves only as a bracket for 
a sequence of statements and has no 
executable code associated with it. 


7.1.4 Page Cross Reference Field 


If the PXREF compiler option is active, 
the right margin of the listing con- 
tains a cross reference field. This 
field contains an indicator for each 
identifier that appears in the associ- 
ated line. The indicators have the 
following meanings: 


e A number indicates a page number on 
which the corresponding identifier 
was declared. | 


e A *®" indicates that the correspon- 
ding identifier is being declared. 


e A 'P'* indicates that the correspon- 
ding identifier is predefined. 


° A 'R' indicates that the correspon- 
ding identifier is a reserved key 
word. 

e A '?"* indicates that the correspon- 


ding identifier is either unde- 
clared, or will be declared further 
on tn the program. This latter 
occurrence arises often in pointer 
type definitions. 


7.1.5 Error Summar 


Toward the end of the Listing 15 the 
error summary. It contains the diag- 
nostic messages corresponding to the 
compilation errors detected in the pro- 
gram. 


7.1.6 Option List 


The option list summarizes the options 
that were enabled for the compilation. 


7.1.7 Compilation Statistics 


The compiler prints summary statistics 
which tell the number of lines 
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compiled, the time required, and compi- 
lation rate in lines per minute of 
(virtual) CPU time. 


These statistics are divided between 
two phases of the compiler: the syn- 
tax/semantic phase and the code gener- 
ation phase. Also printed is the total 
time and accumulative rate for the sum 
of the phases. 
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7.2  CROES-REFERENCE LISTING 


CROSS REF ERENCE LISTING 
INCLUDE 1 CAME FROM MEMBER GLOBALS 
IDENTIFIER DEFINITION ATTRIBUTES <PAGE #>/<INCLUDE #>:<LINE #> 
ID 5/20 IN SEARCH, CLASS = CONST PARAMETER, 
TYPE = STRING, OFFSET = 144 
5/31 5/37 
LEFT_LINK 5/1:7 IN NAMEREC, CLASS = FIELD, TYPE = POINTER, 
OFFSET = 32, LENGTH = 4% 
5/38 
LPTR 5/24 IN SEARCH, CLASS = LOCAL VAR, TYPE = POINTER, 
OFFSET = 152, LENGTH = 4 
5/27 5/28 5/30 5/33 
5/38 5740 
5/1:6 IN NAMEREC, CLASS = FIELD, TYPE = STRING, 
OFFSET = 0, LENGTH = 32 
5/31 5/37 
NAMEPTR 5/1:3 CLASS = TYPE, TYPE = POINTER, LENGTH = 4 
5/1:8 571:12 5/21 724 
NAMEREC 571:4 CLASS = TYPE, TYPE = RECORD, LENGTH = 40 
5/1:3 
NIL PREDEFINED CLASS = CONSTANT, TYPE = POINTER 
5/726 5/28 
5/21 IN SEARCH, CLASS = VAR PARAM, TYPE = POINTER, 
OFFSET = 148, LENGTH = 4 
5/26 5/33 
RIGH? _LINK 5/1:8 IN NAMEREC, CLASS = FIELD, TYPE = POINTER, 
OFFSET = 36, LENGTH = 4 
5740 
SEARCH 5/19 CLASS = ENTRY PROCEDURE 
STRIKG PREDEFINED CLASS = TYPE, TYPE = STRING 
571:°6 5720 
TREE OP 571:12 reas = DEF VAR, TYPE = POINTER, LENGTH = 4 
. / 


Figure 18. Sample cross-reference 1 


The cross reference listing lists 
alphabetically every identifier used 
in the program giving its attributes 
and both the page number and the source 


line number of each reference. 


If the “INCLUDE facility was used, the 
cross reference listing will begin by 
listing all of the include-members by 
name with a reference number. 


Each reference specification is of the 
following form: 


ps fis] 1 
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isting. 


where P is the page number on which the 
reference occurred; is the number of 
the include-member if the reference 
took place within the member; 1 is the 
line number within the program or 
include-member at which the reference 
occurred. 


The reference immediately following 
the identifier is the place in the 
source program where the identifier was 
declared. 


The attribute specifications have the 
following meaning. 


IN name PROCEDURE a user-defined or 


If the identifier is ae record standard procedure 
field, then this attribute speci- 
fies the name of the record in REF VAR external ref variable 
Which the identifier was declared; 
otherwise, it specifies the name of STATIC VAR) static variable 
the routine in which the identifier 
was declared. TYPE type identifier 

CLASS = class VAR PARAMETER pass-by-var parame- 
This attribute gives the class of ter | 


the identifier: 
UNDECLARED undeclared identifier 


CONSTANT declared constant 
TYPE = type 
CONST PARAMETER This attributes gives the type of 
pass-by-const parame- the identifier: 
ter 
ARRAY an array type 
DEF VAR external def variable 


BOOLEAN boolean type 
ENTRY FUNCTION 


function routine CHAR character 
declared as an ENTRY 
point FILE a file type 
ENTRY PROCEDURE INTEGER fixed point numeric 
procedure routine 
declared as an ENTRY POINTER a pointer type 
point 
REAL floating point numeric 
EXTERNAL FUNCTION 
external function rou- RECORD a record type 
tine 
SCALAR enumerated scalar or 
EXTERNAL PROCEDURE subrange 
external procedure 
routine SET a set type 
FIELD record field SPACE a space type 
FORMAL FUNCTION STRING a string type 
function passed aS a 
parameter OFFSET = n 
This attribute specifies the byte 
FORMAL PROCEDURE offset Cin decimal) within the 
procedure passed as a dynamic storage area (DSA) of an 
parameter automatic variable or parameter; 
the displacement of a record field 
FORTRAN FUNCTION within the associated record; or, 
external FORTRAN func- the offset in the static area of a 
tion static variable. 
FORTRAN SUBROUTINE LENGTH = n 
external FORTRAN sub- This attribute specifies the byte 
routine length of a variable or the storage 


required for an instance of a type. 
FUNCTION a user-defined or 


standard function VALUE = n | 
This attribute specifies the 
LABEL statement label ordinal value of an integer or enu- 


merated scalar constant. 
LOCAL VAR automatic variable 
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7.3 ASSEMBLY LISTING 


PASCAL/VS RELEASE 2.0 UTILITY : 01/27781 10:18:00 PAGE 2 
LOC OBJECT CODE STMT PSEUDO ASSEMBLY LISTING 
| * LP1 := FHEAD; 
000090 5830 D090 8 L 03,144¢€,13) 
000094 5840 3000 ~&@Y L 04,0¢,03) 
000098 5040 D094 10 ST 04,1480,13) 
¥* LP2 := NIL; 
00009C 1833 11 SR 03,03 
OO009E 5030 D098 12 ST 03,152¢,13) 
* WHILE LP1 <> NIL DO 
0000A2 13 «©aGLlil DS 0H 
O000A2 5830 D094 14 L ~—6d03,1468¢C,13) 
0000A6 1233 15 LTR 03,03 
O000A8 4780 XXX 16 BE a4L2 
% WITH LP1-> DO 
OOOO0AC 45E0 C860 17 BAL 14,2144(€,12) 
O000BO0 5030 DOAD 18 ST 03,160(,13) 
* BEGIN 
x LP3 := NEXT; 
O000B4 5840 3010 19 L 04,16(,03) 
OOOO0B8 5040 DbO9C 20 ST 04,156¢€,13) 
¥ NEXT == LP2; 
O000BC 5850 D098 21 L 05,152¢,13) 
0000C0 5050 3010 22 ST 05,16¢€,03) 
% LP2 := LP1; 
0000C4 5030 D098 23 ST 03,152(¢,13) 
* LP1l := LP3; 
0000C8 5040 D094 24 Si 04,148(,13) 
C0O00CC 47F0 2016 25 B aSLi 
0000D0 26 a4Ll2 DS 0H 
x END; 
* FHEAD := LP2; 
0000D0 5830 D090 2/7 L 03,144(,13) 
0000D4 5840 D098 28 L ~—6dM004,1520,13) 
0000D8 5040 3000 29 ST 04,0¢,03) 
' Figure 19. Sample assembly listing 


The compiler produces a pseudo assembly 
listing of your program if you specify 
the LIST option. The information pro- 
vided in this listing include: 


Loc 
location relative to the beginning 
of the module in bytes 
(hexadecimal). 


OBJECT CODE 
up to 6 bytes per line of the gen- 
erated text. If the line refers to 
a symbol or literal not yet 
encountered in the listing (Cfor- 
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ward reference) the base displace- 


ment format of the instruction is 
shown as four asterisks (C'X*!"), 
PSEUDO ASSEMBLY 
basic assembly language 
description of generated instruc- 
tion. 
Annotation 
intermixed with the assembly 


the source line 
from which the instructions were 
generated. The source lines appear 
as comments in the listing. 


instructions 1s 


7.4 EXTERNAL SYMBOL DICTIONARY 


PASCALZVS RELEASE 2.0 AMPLXREF: 


EX TERNAL 


SYMBOL 


01727780 13:07:27 


DICTIONARY 


Th 


NAME 


AMPLXREF 
XREFEOF 
XREFREF 
aSTATIC 
AMPXPUT 
CHARPTR 
BOOLPTR 
INCLLEVE 
PROCP 
LINECOUN 
AMPXGET 
SYSPRINT 
AMPXWCHR 
OPTION 
TRIM 


Figure 20. 


e External Symbol Dictionary CESD) 


TYPE 


ID 


Sample 


ADDR 


000000 
0008D8 
000A80 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 


ESD table 


LENGTH 


0O2ZE0C 
000001 
000001 
000009 


000004 
000004 
000004 
000004 
000004 


000040 
000014 


ADDR 


NAME 


XREFDUMP 
XREFINCL 
XREFLIST 
SYSXREF 
INTPTR 
REALPTR 
PAGENO 
INCLNUMB 
AMPXRSET 
AMPXNEW 
PAGEHEAD 
AMPXWLIN 
AMPXWTXT 
AMPXWINT 
AMPXWSTR 


TYPE 


ID 


ADDR 


QOOFCS 
000964 
002C40 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 


LENGTH 


000001 
000001 
000001 
000040 
000004 
000004 
000002 
000001 


is the offset in the CSECT for an 


provides one entry for each name in the 
generated program that 1s an external. 
This information 1s required by the 
linker/loader to resolve inter-module 


linkages. The information in this ta- 
ble 1s: 
NAME the name of the symbol. 
TYPE the classification of the 
symbol: 
SD - Symbol Definition 
LD - Local Definition 
ER - External Reference 
CM - Common 
PC - Private Code. 
ID is the number provided to the 


loader in order to relocate 
address constants correctly. 


LD entry. 


LENGTH the size 
CM entry. 


in bytes of the SD or 


The SD classification corresponds to 
the name of the module; the LD classi- 
fications are entry routines; ER names 
are external routines; CM names corre- 
spond to def variables. The private 
code section 1s where static vartables 
are located. 


132 


INSTRUCTION STATISTICS 


If Pascal/VS is requested to produce an 
assembly listing, it will also summa- 
rize the usage of 370 instructions gen- 
erated by the compiler. The table is 
sorted by frequency of occurrence. 


How to Read Pascal/VS Listings 43 


8.1 70 IMPLENENTATION 


Pascal/VS employs OS access methods to 
implement 1ts input/output facilities. 
Pascal/VS file variables are associ- 
ated with a data set by means of a 
DDname. The Queued Sequential Access 
Method ¢€QSAM) is used for sequential 
data sets. The Basic Partitioned 
Access Method (BPAM) is used for parti- 
tioned data sets (MACLIBs in CMS 
terminology). The Basic Direct Access 
Method (CBDAM) is used for random record 
access. 


8.2 DDNAME ASSOCIATION 


For any identifier declared as a simple 
file variable the first eight charac- 
ters of the identifier's name serves as 
the DDname of the file. As a conse- 
quence, the first eight characters of 
all file variables declared within a 
module should be unique. You must also 
be careful not to allow one of the 
first eight characters to be an under- 
score ('_ ') since this 15 not a valid 
character to appear in a DDNAME. 


An explicit DDname may be associated 
With a file variable by means of the 
DDNAME option when the file is opened. 
(see "The Open Options” on page 56). 


DDnames should be explicitly specified 
for files which are elements of arrays, 
fields of records, or pointer 
qualified. If the DDname is not 
explicitly specified for such files, a 
DDname of the form "PASCALnn"™ will be 
assigned to the file, where "nn" is a 
two digit integer. 


8.3 DATA SET DCB ATTRIBUTES 


At runtime, associated with every Pas~ 
cal/VS file variable is a Data Control 
Block (DCB) which contains information 
describing specific attributes of the 
associated data set. Among these 
attributes are 


e the logical record length CLRECL); 
e the physical block size (BLKSIZE); 
° the record format CRECFM). 
Pascal/VS supports all of the record 
formats that are supported by QSAM, 


such as,» F, V, U, FB, VB, FBA, VBM, 
etc. 
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A Pascal/VS program will process a file 
that contains ANSI or machine control 
characters at the beginning of each 
logical record (Cin which case _ the 
record format would be specified as 
RECFM=...A or RECFM=...M). Each log- 
ical record written to such files will 
be prefixed with the appropriate con- 
trol character. Thus, the first 
character position of each record is 
not directly accessable from the 
Pascal/VS program. CIf the NOCC option 
1s specified when the file is opened, 
no control character will be prefixed 
and the first character is accessable. 
See "The Open Options" on page 56.) 


Newly allocated Cempty) data sets, that 
is, data sets intended for output might 
not have these attributes assigned. As 
far as Pascal/VS 1s concerned, there 
are two ways to specify the DCB attri- 
butes for such data sets: 


e by being specified in the associ- 
ated DDname definition Cin CMS: the 
FILEDEF command; in TSO: the 
ALLOC/ATTR commands; in OS batch: 
the DD card); 


e by being specified when the file is 
open by means of the options 
string. Csee "The Open Options" on 
page 56). 


If any of these attributes are unas- 
signed for a particular data set to 
which a Pascal/VS program will be writ- 
ing, the Pascal/VS I/0 manager will 
assign defaults according to whether 
the data set is being managed as a file 
of type "TEXT™ or as a non-text file. 


For the case of text files, if neither 
LRECL, BLKSIZE, nor RECFM are 
specified, then the following defaults 
Will apply: 

° LRECL=256 

e BLKSIZE=260 

e RECFM=V 

For the case of non-text files, if nei- 
ther LRECL, BLKSIZE, nor RECFM are spe- 
cified then the following defaults will 
apply. 

e LRECL="length of file component" 

e BLKSIZE=LRECL 

° RECFM=F 

If soma of the attributes are specified 


and some are not then defaults will be 
applied using the following criteria: 
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e RECFM of V is preferred over F for 
text files. 


e RECFM of F is preferred over V for 
non-text files. 


° If RECFM is F then the BLKSIZE is 
to be equal to the LRECL or to bea 
multiple thereof. 


° If RECFM is V then the BLKSIZE is 
to be at least four bytes greater 
than the LRECL. 


8.4 TEXT FILES 


Text files contain character data 
grouped into logical records. From a 
Pascal/VS language viewpoint, the log- 
ical records are lines of characters. 
Pascal/VS supports both fixed length 
and variable length record formats for 
text files. Characters are stored in 
EBCDIC. 


The predefined type text is used to 
declare a text file variable in 
Pascal/VS. The pointer associated with 
each file variable points to positions 
Within a physical I/0 buffer. 


8.5 RECORD FILES > 


All non-text files itn Pascal/VS are 
record files by definition. Input and 
output operations on record files are 
done on a logical record basis instead 
of on a character basis. 


The logical record length CLRECL) of a 
file must be at least large enough to 
contain the file's base component; oth- 
erwise, an execution time error will 
occur when the file 18 opened. For 
example, a file variable declared as 
"file of INTEGER’ will require the 
associated physical file to have a log- 
ical record length of at least 4 bytes. 


If a file has fixed length records 
CRECFM=F) and the logical record length 
is larger than necessary to contain the 
files component type, then the extra 
space in each logical record is wasted. 


8.6 OPENING A FILE FOR INPUT ~- RESET 


To explicitly open a file for input, 
the procedure RESET is used. A call to 
RESET has the forms: 
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RESETCF) 
or 

RESETCf,options) 
where "f" is a file variable and 
“options” is a string which contains 
the open options (see "The Open 
Options™ on page 56). The "options" 
parameter may be omitted. 


Normally, RESET allocates a buffer, 
reads in the first logical record of 
the file into the buffer, and positions 
the file pointer at the beginning of 
the buffer. Therefore, given a text 
file F, the execution of the statement 
WRESETCF)™ would imply that "Fa" would 
os the first character of the 
ile. 


If a RESET operation is performed on an 
open file, the file is closed and then 
reopened. 


program EXAMPLE; 

var 
SYSIN 
Cc 


TEXT; 

: : CHAR; 

begin 
(Xopen SYSIN for input *) 
RESETCSYSIN)D; 
(X¥get first character of filexX) 
C := SYSINO; 

end. 

a text 


Figure 21. Using RESET on 


file 


7 OPENING A FILE FOR INTERACTIVE 
P 


Since RESET performs an implicit read 
operation to fill a file buffer, it is 
not well suited for files intended to 
be associated with interactive input. 
For example, if the file being opened 
is assigned to your terminal, you will) 
be prompted for data when the file is 
opened. This may not be preferable if 
your program is suppose to write out 
prompting messages prior to reading. 


To alleviate this problem, a file may 
be opened for interactive input by spe- 
cifying "INTERACTIVE" in the options 
string of RESET. No initial read oper- 
ation 1s performed on files opened in 
this manner. The file pointer has the 
value nil until the the first file 
operation is performed (namely GET or 
READ). The end-of-line condition (see 
"End of Line Condition" on page 53) is 
initially set to TRUE. 


program EXAMPLE; 


var 
SYSIN TEXT; 


DATA > STRINGC(80); 

begin 
(Xopen SYSIN for interactive *) 
CXinput ¥) 
RESETCSYSIN, ‘INTERACTIVE’ ); 


(Xprompt for response 
(Xread in response . 
WRITELNC’ ENTER DATA: '); 
READLNCSYSIN, DATA); 

end. 


Opening a file 
interactive input 


Figure 22. 


8.8 OPENING A FILE FOR OUTPUT - 
REWRITE — 


The procedure REWRITE is used to open a 
file for output. A call to the proce- 
dure has the forms: 


REWRITEC €) 
or 
REWRITEC f,options) 
where “f" js ae file variable and 
"options" is a string which contains 
the open options (see "The Open 


Options™ on page 56). The “options” 
parameter may be omitted. 


REWRITE positions the file pointer at 
the beginning of an empty buffer. If 
the file is already open it is closed 
prior to being reopened. 


program EXAMPLE; 


var 

SYSPRINT TEXT; 
beqin 

REWRITECSYSPRINT); 

On ear cern gn meg neen ae 
end. 


Opening a text file 
with REWRITE 


Figure 23. 


program EXAMPLE; 


var 
OUTFILE : file of INTEGER; 
I > INTEGER; 


begin 
REWRITECOUTFILE, 
"BLKSIZE=1600,LRECL=4,RECFM=F'* ); 


eo ¢ 


OUTFILEAa := I; 

PUTCOUTFILE); 
end. 
Figure 24. Opening a_ record file 
with REWRITE 


fied, and then replaced. 
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8.9 TERMINAL INPUT/OUTPUT 


Two procedures are provided for doing 
input and output directly to your ter- 
minal without going through the normal 
DDname interface. Calls to these pro- 
cedures have the forms: 


TERMINC fF) or TERMINC Ff, options) 
TERMOUTCF) or TERMOUTCF,options) 


where "f" is a text file variable and 
"options™ is a string which contains 
the open options (see "The Open 
Options™ on page 56). The "options" 
parameter may be omitted. 


The TERMIN procedure opens a text file 
for interactive input from your termi- 
nal. Likewise, the TERMOUT procedure 
opens a text file for terminal output. 


There 15 no concept of an end-cf-file 
condition for files opened with TERMIN. 
The EOF function always returns FALSE 
for such files. 


Note: The TERMIN procedure opens the 
file with the INTERACTIVE attribute as 
Was described in "Opening a File for 
Interactive Input™ on page 46. 


program EXAMPLE; 
var 
TTYIN, TTYOUT: text; 
T > INTEGER; 
begin 


TERMINCTTYIN)D; TERMOUTCTTYOUT); 


WRITELNCTTYOUT,* ENTER DATA: '); 
READLNCTTYIN,I); 


end. 


Terminal input/output 


example. 


Figure 25. 


8.10 OPENING A FILE FOR UPDATE 


The UPDATE procedure is provided for 
opening a record file for updating. In 
this mode, records may be read, modi- 
A call to the 
procedure has the forms: 


UPDATEC Ff) 
or 
UPDATECf,options) 
where "*" js a record file variable and 
"options™ is a string which contains 
the open options (see "The Open 


Options™ on page 56). The “options” 
parameter may be omitted. 
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Upon calling UPDATE, a file buffer is 
allocated and the first record of the 
file is read into it. If a subsequent 
PUT operation is performed on the file, 
the contents of the buffer will be 
stored back into the file at the 
location from which it was read. 


Each GET operation reads in the next 
subsequent record of the file. A PUT 
cperation will write the record back 
from where the last GET operation 


| obtained it. 


program EXAMPLE; 
var 
F : file of 
: record 
NAME: STRING(30); 
AGE : 0..99; 
end; 
beain 
UPDATECF); 
(Xupdate each record *) 
(X by incrementing age X) 
While not EOFCF) do 
begin 
FQa.AGE := Fa.AGE + 1; 
PUTCF); 
GETCF) © 
end; 
end. 


Figure 26. Updating a record file 


8.11 PROCERURE GET 


The GET procedure 1s the means by which 
a basic read operation 1s performed on 
a file. A call to the procedure has 
the form: 


GETC Ff) 


where "f" 15 a file variable. 


8.11.1 GET operation on text files 


When applied to an input text file, GET 
causes the file pointer to be incre- 
mented by one character position. If 
the file pointer is positioned at the 
last position of a logical record, the 
GET operation will cause the end-of- 
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sine condition to become true (see "End 


of Line Condition" on page 53) and the 
file pointer will be positioned to a 
blank. If, prior to the call, the 
end-of-line condition is true, then the 
file pointer will be positioned to the 
beginning of the next logical record. 


If, prior to the call to GET, the file 
pointer is positioned to the end of the 
last logical record of a text file Cin 
which case the end-of-line condition 
will be true) then the end-of-file con- 
dition will become true. (See "End of 
File Condition - text files" on page 
54). 


If GET is attempted ona text file that 
has not been opened, it will be implic- 
itly opened for input Cas if RESET had 
been called). 


program EXAMPLE; 
var | 
INFILE text; 
C1,C2 CHAR; 
begin 
(Xget first char of file) 
RESETCINFILE); 
C1 := INFILEQ; 
(¥get second char of filex) 
GETCINFILE)D; 
C2 := INFILEQ; 


end. 


Using GET on ae text 
file 


Figure 27. 


8.11.2 GET operation on record files 


Each call to GET for the case of record 
files reads the next sequential logical 
record into the buffer referenced by 
the file pointer. The end-of-file con- 
dition will become true if there are no 
more records within the file, in which 
va the file pointer will be set to 
Nid. 


A record file must be opened for input 
or update prior to executing a GET 
operation, otherwise, a runtime diag- 
nostic will be generated. 


program EXAMPLE; 
var 
F : file of 
record 
NAME = STRINGC25); 
AGE : 0..99; 
WEIGHT: REAL; 
SEX : CMALE,FEMALE) 
end; 
begin 
RESETCF); 
While not EOFCF) do 


begin 
WRITEC' Name : °*, 
Fa .NAME) ; 
WRITEC' Age : ', 
Fa.AGE: 3); 


WRITELN; 
GETCF) 
end 
end. 
Using GET on-~ record 
files 


Figure 28. 


8.12 PUT PROCEDURE 


The PUT procedure is the means by which 
a basic write operation is performed on 
a file. A call to the procedure has 
the form: 


PUTCF) 
where "fF" 35 a file variable. 


The file must be opened for output or 
update prior to calling PUT®; 
otherwise, a runtime diagnostic will 
occur. 


8.12.1 PUT Opsration on Text Files 


The PUT procedure, when applied to a 
text file opened for output, causes the 
file pointer to be incremented by one 
character position. If, prior to the 
call, the number of characters in the 
current logical record is equal to the 
file's logical record length CLRECL), 
the file pointer will be positioned 
within the associated buffer to begin a 
new logical record. 


When the file buffer is filled to 
capacity, the buffer is written to the 
associated physical file. The file 


data to be written. If the file 
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pointer is then positioned to the 
beginning of the buffer so that it may 
be refilled on subsequent calls to PUT. 
The capacity of the buffer 15 equal to 
the filets physical block size 
(BLKSIZE). 


To terminate a logical record before it 
is full requires a call to WRITELN (Csee 
"The WRITELN Procedure" on page 53). 


program EXAMPLE; 

Var 
OUTFILE text; 
C 


CHAR; 


begin 
REWRITECOUTFILE); 


OUTFILEA == C; 
(X¥Write out value of Cx) 
PUTCOUTFILE); 


end. 


Using PUT on a text 


file 


Figure 29. 


8.12.2 PUT Operation on Record Files 


The PUT procedure causes the file 
record that was assigned to the output 
buffer via the file pointer to be 
effectively written to the associated 
physical file. Each call to PUT for 
the case of record files produces one 
logical record. 


program EXAMPLE; 
var 
F : file of 
record 
NAME =: STRINGC25); 
AGE : 0..939; 
WEIGHT: REAL; 
SEX =: CMALE,FEMALE) 
end; 
begin 
REWRITECF); 
Fa .NAME : 
Fa.AGE : 
Fa.WEIGHT := 
Fa.SEX : 
PUTCF); 


"John F. Doe’; 


end. 


Using PUT on 
files 


Figure 30. record 


Prior to a PUT operation, the associated output buffer must contain the 
is not open when the PUT operation is 


attempted, then no output buffer exists. (The file pointer will have the 


value nil.) 
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8.13 TEXT FILE PROCESSING 


8.13.1 Text File READ 


The READ procedure fetches data from a 
text file beginning at the current 
position of the file pointer. A call 
to the procedure has the forms: 
READCf,v) 
or 
READCf,vin) 
where "f" is a file variable and "v" is 
a variable which must be of one of the 
following types: 
CHAR Cor a subrange thereof) 
INTEGER Cor a subrange thereof) 
packed array[] of CHAR 
REAL Cor SHORTREAL) 
STRING 
Yn is an optional field length Can 
integer expression). The file variable 
WF may be omitted, in which case, the 
file INPUT is assumed. 
A call of the form 
READCf,v1l,v2,...Vn) 
15 executed as 
begin 
READCFf,v1l); 
READCf,v2);3 


READ(f,vn); 
end 


If READ is called for a closed file, 
the file is opened for input by an 
implicit call to RESET. 


Upon executing READ, if the file point- 
er 15 not yet set, an initial GET oper- 
ation is performed. This case occurs 
when a file is opened INTERACTIVE]y. 
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(see "Opening a File for Interactive 
Input™ on page 46.). 


When reading INTEGER or REAL data via 
the READ procedure, and no field length 
is specified, all blanks preceding the 
data are skipped. In addition, logical 
record boundaries will be skipped. If 
the end-of-file condition should occur 
before a nonblank character 15 
datacted;, an error diagnestic will be 
produced. : 


Integer data begins with an optional 
sign C'+* or *'=-') followed by all dig- 
its up to, but not including, the first 
non-digit or up to the end of the log- 
ical record. 


For example, given an input file posi- 
tioned at the beginning of a logical 
record with the following contents: 


95123S5SAN JOSE,CA 


an integer read operation would bring 
in the value 95123. After the read, 
the file pointer would be positioned to 
the first "S' character. 


Real data begins with an optional sign 
C'+" or '-') and includes all of the 
following nonblank characters) until 
one is detected that does not conform 
to the syntax of a real number. 


For example, given an input file posi-~ 
tioned at the beginning of a logical 
record with the following contents: 


3.1415972 


a floating point read operation would 
bring in the floating point value 
3.14159. After the read, the file 
pointer would be EBeSnT Tense to the ‘'s/' 
character. 


If a field length value e specified, 
as many characters as are indicated by 
the value will be consumed by the read 
operation. The variable will be 
assigned from the beginning of the 
field. If the field is not exhausted 
after the variable has been assigned 
the data, the rest of the field will be 
skipped. 


program EXAMPLE; 

var 
ZIP > 0..99999; 
MAN > 0..999999; 
BALANCE: REAL; 

begin 
READ(CZIP:5,MAN:6,BALANCE: 9); 
WRITELNC*ZIP = ',ZIP); 
WRITELNC'MAN = *,MAN);3 
heat = *',BALANCE:8:2) 

end. 


Given the following input stream 
from file INPUT: 


951239999991000.00JUNK 


This program produces the following 
on file OUTPUT: 


| ZIP = 
MAN = 
BALANCE = 


95123 
999999 
1000.00 


Immediately after the READ state- 
ment was executed, file INPUT was 
positioned to the ‘'N*' character. 


Figure 31. Using READ with length 


qualifiers. 


When reading data into variables 
declared as packed array of CHAR or 
STRING, data is read until one of the 
following three conditions occurs: 


e the variable is 
declared capacity; 


filled to its 


e an end-of-line condition is detec 
ted; 


® the field length Cif specified) is 
exhausted. 


The length of a STRING variable will be 
set to the number of characters read. 
A variable declared as packed array of 
CHAR will be padded if necessary with 
blanks up to its declared length. 
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Program DOREAD; 

var 
INFILE 
R 


text; 
arrayli..10] of 
record 
NAME: STRING(25); 
AGE : 0..99; 
WEIGHT: REAL 
end; 
I Deed 03 
begin 
RESETCINFILE); 
for I := 1 to 10 do 
with RCI] do 
beqin 
READCINFILE,NAME, AGE); 
READCINFILE,WEIGHT); 
READLNCINFILE) 
end; 
end. 


Using READ on text 
files. 


Figure 32. 


8.13.2 The READLN Procedure 


A call to READLN has the same form as a 
call to READ and performs the same 
function except that after the data has 
been read, all remaining characters 
Within the logical record are skipped. 
The procedure 1s applicable to text 
files only. 


Normally, READLN causes the next log- 
ical record to be read Cunless the 
end-of-file is reached) and the file 
pointer 15 positioned to the beginning 
of the buffer that contains the record. 


In the case of text files opened with 
the INTERACTIVE attribute, the file 
pointer is positioned after the end of 
the logical record and the end-of-line 
condition is set to TRUE. 


If the end-of-line condition is true 
for an interactive file prior to a call 
to READLN and the condition was not the 
result of a previous call to READLN, 
then the call is ignored. Two calls to 
READLN in succession will cause the 
following logical record to be skipped 
in its entirety. 


If READLN is called for a closed file, 


the file is opened implicitly for input 
as though RESET had been called. 
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program COPY; 
var 
INFILE, 


OUTFILE text; 


BUF > STRINGC100); 
begin | 
RESETCINFILE); 
REWRITECOQUTFILE); 
while not EOFCINFILE) do 
heqin 


READCINFILE, BUF); 
WRITELNCOUTFILE, BUF); 
(Xignore characters after 
column 100 in each line *X) 
READLNCINFILE) 
end 
end. 
Using the procedure 
READLN 


Figure 33. 


8.13.3 Text File WRITE 


The WRITE procedure writes data to a 
text file beginning at the current 
position of the file pointer. A call 
to the procedure has the forms: 
WRITECf,e) 
or 
WRITECfFf,e2n) 
or 
WRITECF,e:nlin2) 
where "f" 15 a file variable and "ee" is 
an expression which must be of one of 
the following types: 
BOOLEAN 
CHAR Cor a subrange thereof) 
INTEGER Cor a subrange thereof) 
packed arrayl] of CHAR 
REAL Cor SHORTREAL) 
STRING 
Wool, and "n2" are optional field 
lengths Cinteger expressions). The 
file variable "f" may be omitted, in 
which case, the file OUTPUT is assumed. 
A call of the form 
WRITECf,e1,e2,...en) 
is executed as 
begin 
WRITECf,e1); 
WRITECF,e2); 


WRITECf,en); 
end 
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If WRITE is called for a closed file, 
the file is opened implicitly for out- 
put. | 


If during a call to WRITE, the length 
of the logical record being produced 
becomes equal to the logical record 
length CLRECL) of the text file, a run 
time error diagnostic will be 
generated. 


If a field length is specified for an 
expression to be written and its value 
is positive, the data will appear right 
justified in the output field. If the 
specified length is negative, the data 
will appear left justified. (The field 
width will be the absolute value of the 
specified length.) 


String data that is being written with 
a specified field length will be trun- 
cated on the right if the field length 
1s too small. 


If no field length 1s specified, a 
default will be used that depends on 
the data's type: 


data type default field length 
BOOLEAN 10 

CHAR £ 

INTEGER 12 

REAL 20 

SHORTREAL 20 


In addition, expressions of type STRING 
have a default field length equal to 
their current length. Fixed length 
strings (packed array of CHAR) have a 
default equal to their declared length. 


program DOWRITE; 
var 
OUTFILE : text; 
R > arrayll1..10] of 
record 
NAME: STRINGC25); 
AGE : 0..99;3 
WEIGHT: REAL 
| end; 
rE. > 1..10; 
beqin 
REWRITECOUTFILE); 


for I := 1 to 10 do 
With RCI] do 
begin 
fata oer a 


' ? 
> 


WRITECOUTFILE, WEIGHT: 3:0)3 


WRITELNCOUTFILE) 
end; 
end. 
Figure 34. Using WRITE on text 


files 


Lie Mer eee 


8.13.4 The HRITELN Procedure 


The WRITELN procedure is applicable 
only to text files intended for output. 
It causes the current logical record 
being produced to be completed so that 
the next output operation will begin a 
new logical record. 


If the record format of the file is 
fixed CRECFM=F), WRITELN will fill the 
remainder of the current record with 
blanks. For variable length records 
CRECFM=V), the record length is set to 
the number of bytes currently occupied 
by the record. 


If WRITELN is called for a closed file, 
the file 1s opened implicitly for out- 
put. 


pragram DOUBLESPACE; 

Var 
FILEIN, 
FILEOUT 


text; 
BUF > STRING; 
begin 
REWRITECFILEOUT); 
RESETCFILEIN); 
While not EQFCFILEIN) do 


begin 
READLNCFILEIN, BUF); 
WRITELNCFILEOUT, BUF); 
(Xinsert blank line *) 
JRITELNCFILEOUT) 
end; 
end. 
Figure 35. Using the WRITELN pro- 
cedure 


8.13.5 The PAGE Procedure 


The PAGE procedure causes a page eject 
to occur on a text output file which is 
to be associated with a printer (Cor to 
a disk file which will eventually be 


printed). A call to the procedure has 
the following form: 
PAGEC fF) 


where "f" is a variable of type TEXT 
which has been opened for output. 


If a logical record is partially 
filled, an tmplicit WRITELN will be 
performed prior to the page eject. 

For this procedure to produce any 
affect, the first character of each 
logical record of the file must be 
reserved for carriage control. This is 
done by specifying either A CANSI con- 
trol) or M (Cmachine control) in the 
RECFM attribute for the file. 
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If the record format specifies ANSI 
control, then the character '1l1' will be 
inserted in the first character posi- 
tion of the record. For machine con- 
trol, a single record 15 written that 
contains the hexadecimal value of '&B' 
in its first character position. 


Program EXAMPLE; 
text; 


(¥start new page) 


PAGEC(PRINT); 
end. 


Using the PAGE proce- 


dure 


Figure 36. 


8.13.6 End of Line Condition 


The end-of-line condition occurs on a 
text file opened for input when the 
file pointer is positioned after the 
end of a logical record. To test for 
this condition, the EOLN function 15 
used. 


The end-of-line condition becomes true 
when GET is executed for a file posi- 
tioned at the last character of a log- 
ical record, or if a call to READ 
consumes all of the characters of the 
current logical] record. 


The file pointer will always point to a 
blank character Cin EBCDIC, hexadeci- 
mal 40) when the end-of-line condition 
occurs. 


The EOLN function is only applicable to 
text files. 


program EXAMPLE; 
var 
SYSIN: text; 
CNT : 0..327673 
begin 
(* compute length of first 
logical record of SYSIN 
RESETCSYSIN); 
CNT := 0; 


while not EOLNCSYSIN) do 
begin 
CNT := CNT + 1; 
GETCSYSIN); 
end; 
WRITELNCCNT) 
end. 


Using the EOLN 
tion 


Figure 37. func” 
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8.13.7 End of File Condition - text 
files | 


The end-of-file condition becomes true 
for a text file when one of the follow- 
Ing occurs: 


° RESET 1s called and the file is 
empty. 


e The file is open for output. 


® GET is called when the file pointer 
is positioned at the end of the 
last logical record of the file Cin 
which case the end-of-line condi- 
tion is true). : 


e READ is called and all characters 
of the last logical record were 
consumed. 


When the end-of-file condition occurs, 
the file pointer has the value nil. 


To test for this condition, the EOF 
function is used. 


Any calls to GET or READ for a file for 
which the end-of-file condition is true 
Will be ignored. 


program EXAMPLE; 
Var 
SYSIN: TEXT; 
CNT =: 0..32767;3 
begin 
(*¥ compute number of logical 
records in file SYSIN * ) 
RESETCSYSIN); 
CNT == 0; 


While not EOFCSYSIN) do 
begin 
CNT := CNT + 13 
READLNCSYSIN) 
end; 
WRITELNCCNT) 
end. 


Using the EOF function 
ona text file 


Figure 38. 


8.14 RECORD FILE PROCESSING 


8.14.1 Record File READ 


As documented in the language manual, 
the statement 


READCF,V) 


is equivalent to 
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begin 
Vo t= Fa; 
GETCF) 
end 


where F and V are declared as follows: 


var F: file of t; 


* 


. > 


If file F is not open when READ is 
called, an error diagnostic will be 
generated at run time. 


8.14.2 Record File WRITE 


As documented in the language manual, 
the statement 


WRITECF,V) 


is equivalent to 


where F and V are declared as follows: 


var F: file of t; 
Vi t; 


If file F is not open when WRITE is 
called, an error diagnostic will be 
generated at run time. 


program EXAMPLE; 
type 
REC = record 
NAME = STRINGC25); | 
AGE =: 0..99;3 
SEX =: CMALE,FEMALE) 
end; 
var 
INFILE, 
OUTFILE: 
file of REC; 
BUFFER : REC; 
begin 
RESETCINFILE); 
REWRITECOUTFILE); 
While not EOFCINFILE) do 
begin 
READCINFILE, BUFFER); 
WRITECOUTFILE, BUFFER) 
end 
end. 


Using READ and WRITE 
on record files. 


Figure 39. 


8.14.3 End of File Condition - Record 


Lee Star — RRR menesi esteem enna enneennmnnnenmmmamananmmemmeneel 


Files 


The end-of-file condition becomes true | 


| 7 


for a record file when: 
@ RESET is called for an empty file. 
® The file 1s opened for output. 


e GET is executed for a file in which 
no more records remain. 


When the end-of-file condition occurs, 
the file pointer has the value nil. To 
test for this condition, the EOF func-— 
tion is used. 


Any calls to GET or READ for a file for 
which the end-of-file condition is true 
will produce an error diagnostic. 


8.15 CLOSING A FILE 


The procedure CLOSE is provided to 
close a file explicitly. A call to 
this procedure has the form 


CLOSEC ¥) 
where "f" 15 a file variable. 


All open files which are declared in 
the body of a routine as simple vari- 
ables are closed implicitly when the 
routine returns to its invoker. All 
files which are open when the program 
terminates, will be closed automati- 
cally by the Pascal/VS runtime 
environment. 


If the variable associated with an open 
file is destroyed prior to program ter- 
mination, the results could be disas~- 
trous when Pascal/VS attempts to close 
the file. This problem could occur in 
the following cases: 


e the file variable is an element of 
an array. 


° the file variable is a field of a 
record. 
® the file variable is pointer quali- 


fied Cexists on the heap). 


° a routine which contains local file 
variables is exited with a goto 
statement. 


In these cases, the file variable must 
be genes explicitly with a call to 
CLOSE. 
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program EXAMPLE; 

type 

var 

FSTK : arrayll..81 of 
TEXT; 

DDNAME: STRINGC8);3 

I > 1..8; 


begin 


RESETCFSTKLI1],"DDNAME="||DDNAME); 


for I := 1 to 8 do 
CLOSECFSTKLI]); 
end. 


Figure 40. Example of using CLOSE 


8.16 RELATIVE RECORD ACCESS 


Pascal/VS permits records of a record 
file to be accessed in a random order 
by means of the SEEK procedure. A call 
to SEEK has the form 


SEEKCF,n) 


where "f" js a record file that was 
previously opened with RESET, REWRITE, 
or UPDATE; "n™ is a positive integer 
expression which corresponds to a 
record number. The the number of the 
first record isl. 


A subsequent call to GET or PUT will 
operate on the "nth" record of the 
file. Each call to GET or PUT there- 
after will operate on subsequent 
records. SEEK does not perform an I/0 
operation. 


At the first call to SEEK, the file is 
implicitly closed and reopened for ran- 
dom access using the Basic Direct 
Access Method (BDAM). The file that is 
to be accessed in this manner must have 
unblocked, fixed-length records; that 
is» the RECFM attribute for the file 
must be "Ft, 


Under TSO and OS Batch, the first SEEK 
operation ona file opened with REWRITE 
will cause dummy records to be written 
to the associated data set until the 
file's primary space allocation is 
filled. The record number specified 
must not exceed the number of blocks in 
the file's primary space allocation. 


Under CMS, the corresponding FILEDEF of 
a file being accessed with SEEK must 
have the XTENT attribute specified’. 
This attribute specifies the largest 
record number that may be accessed; 
however, it has nothing to do with the 
space occupied by the file. Thus, a 
FILEDEF specification of the form 


If the XTENT attribute is not specified, CMS will default it to 50. 
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FILEDEF F DISK FILE DATACXTENT 65535 


will permit any record in file F to be 
referenced with SEEK, regardless if it 
actually exists. If a record is being 
read that does not exist, CMS will 
return a buffer of zeroes. 


program EXAMPLE; 
type 
REC record 
NAME = STRINGC25); 
AGE =: 0..99; 
SEX : (MALE,FEMALE) 
end; 
IDX record 
RECNO: 
end 


0..MAXINT; 


var 
RECFILE: file of REC; 
IDXFILE: file of IDX; 
begin 
RESETCIDXFILE); 
RESETCRECFILE); 
(Xwrite out names in order ee 
index 
ainere -not EOFCIDXFILE) do 
eain 
SEEKCRECFILE, IDXFILEA.RECNO); 
GETCRECFILE); 
WRITELNCOUTPUT,RECFILEA.NAME) 
GETCIDXFILE); 
end 
end. 


using SEEK 


Example of 
to access records ran- 
domly 


Figure 41. 


8.17 PARTITIONED DATA SETS 


8.17.1 Opening a Partitioned Data Set 


To open a partitioned data set (PDS), 
the procedures PDSIN and PDSOUT are 
provided. Calls to these procedures 
are of the form 


PDSINCf,options) 
PDSOUTCf,options) 


where "F™" is a file variable and 
"options" is a string expression which 
contains open options (see "The Open 
Options"). Unlike the other procedures 
which open files, the options string is 
required and must specify a member name 
(MEMBER=name). 


PDSIN opens the specified member in the 
PDS for input. As in the case of 
RESET, the file pointer is made to 


8 


point to a buffer containing the first 
logical record of the file. 


PDSOUT creates a member in the PDS and 
opens it for output. If the member 
already exists, it will be erased and 
then recreated. 


See Figure 43 on page 58 for an example 
of opening a partitioned data set. 


8.17.2 PDS Access ina CHS Environ- 
ment 


In a CMS environment, members’) of 
MACLIBs may be accessed as partitioned 
data sets via the 0S simulation facili- 
ties. A DDname is assigned to the 
MACLIB file with the FILEDEF command; 
the file name of the maclib must then 
appear ina "GLOBAL MACLIB®™ command. 


For example, in order to access the 
file "MYLIB MACLIB A™ as a partitioned 
data set with ddname “"LIB™ from a Pas- 
cal/VS program, the followtng commands 
would be executed prior to executing 
the program. 


FILEDEF LIB DISK MYLIB MACLIB A 
GLOBAL MACLIB MYLIB 


Two or more MACLIBs may be accessed as 
though they were concatenated by using 
the CONCAT option of the FILEDEF com- 
mand. For example, in order to access 
the MACLIBs "M1", "M2", and "M3" as a 
concatenated partitioned data set with 
ddname "LIB", the following commands 
would be executed prior to executing 
the Pascal/VS program. 


FILEDEF LIB DISK M1 MACLIB A 

FILEDEF LIB DISK M2 MACLIB A CCONCAT 
FILEDEF LIB DISK M3 MACLIB A CCONCAT 
GLOBAL MACLIB M1 M2 M3 


8.18 THE OPEN OPTIONS 


All Pascal/VS procedures which open 
files are defined with an optional 
string parameter which contains 
options pertaining to the file being 
opened. These options determine how 
the file is to be opened and what 
attributes it is to have. 


The data in the string parameter has 
the syntax shown in the following fig- 
ure: 


All operations that may be applied to "partition data sets" under OS may 


be applied to MACLIB's and TXTLIB's under CMS. 
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4 option-string: 


Tr? toption}——> > 
—_—_—— < 


2 


option: 
> DDNAME = name ——> 
> BLKSIZE. =n > 
> LRECL = n > 
> NOC OC. eee 
2 REECE = 6 Se 
2 INTERAGIIVG == > 
> MEMBER=namne ——————> 
> NAME=Th2. tt. th 
7 GOASE See ee 

Figure 42. Syntax of open options 


Not all of these options apply to all 
open procedures. If the option is spe- 
cified for a procedure that 15 not 
applicable, the option will be ignored. 


The following is a description of each 
option and the context in which it 
applies. 


DDNANE=neame 

This attribute signifies that the 
physical file to be associated with 
the file variable has the DDname 
indicated by "name"™. This new 
DDname will remain associated with 
the file variable even if the file 
is closed and then re-opened. Do 
can only be changed by another call 
to a file open routine with the 
DDNAME attribute specified. 


If this option is not specified, 
then the DDname to be associated 
with the file is derived according 
to the following rules: 


e e If the file variable is a sim- 
ple variable then the default 
DDname will be the name of the 
variable itself, truncated to 
: 8 characters. 


° If the file variable is an ele- 
ment of an array, a field of a 
record, or is pointer quali- 
fied, then a DDname will be 
generated of the following 
form: PASCALnn, where "nn" is a 
two digit integer. | 


convention. 
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The DDNAME option is applicable to 
the following procedures: 


RESET, REWRITE, UPDATE, PDSIN, and 
PDSOUT. 


BLKSIZE=n 


This attribute is used to specify a 
physical block size to be associ- 
ated with an output file. This 
value Cindicated by "n") will over- 
ride a BLKSIZE specification on the 
DDname definition. 


This option is applicable to the 
procedure REWRITE only. 


LRECL=n 


This attribute is used to specify a 
logical record length to be associ- 
ated with an output file. This 
value Cindicated by "n") will over- 
ride a LRECL specification on the 
DDname definition. 


For files with variable length 
records CRECFM=V), the logical 
record length must include a 4 byte 
length descriptor’. Thus, if text 
is being written to such a file, 
the LRECL must be 4 bytes longer 
than the § longest line to be 
written. 


The LRECL attribute may also be 
used in the TERMIN and TERMOUT pro- 
cedures to specify the length of 
the I/0 buffer. (This will deter- 
mine the maximum length of the line 
to be read from, or written to, 
your terminal.) 


This option is applicable to the 
procedures REWRITE, TERMIN, and 
TERMOUT. 


Normally, the first character 
position of an output file which 
contains ANSI or machine control 
characters (as determined by the 
RECFM) is not directly accessable 
to the user program. The data in 
such files is placed at the second 
character position of each record. 


The NOCC option causes such files 
to be treated as though control 
characters are not. significant; 
that is, data will be placed within 
each record at the first character 
position. This option allows con- 
trol characters to be generated 
explicitly. 


This option is applicable the pro- 
cedure REWRITE. 


RECFM=c 


The 4 byte length descriptor for each record of a V-record file is an OS 
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This attribute is used to specify a 
record format to be associated with 
an output file. This specification 
Cindicated by "c™) will override a 
RECFM specification on the DDname 
definition. 


Pascal/VS supports all record for- 
mats that QSAM supports: 


U CT] JA 
M 


D CB] CA] 


For an explanation of each of these 
record formats, consult the publi- 


cation OS/VS2 MVS Data Management 


Services Guide Corder number 


GC26-3875). 


The RECFM specification applies to 
procedure REWRITE. 


INTERACTIVE 


58 


This attribute indicates that the 
file is to be opened for input as 
an interactive file. See "Opening 
a File for Interactive Input" on 
page 46 for a description of inter- 
active files. , 


program EXAMPLE; 
var 


PDS : TEXT; 
MEMBER : STRING(8); 


BUF > packed array[1..80] of CHAR; 
begin 


RESETCINPUT, ‘INTERACTIVE’ ); 


READLNCMEMBER) ; 
While not EOFCINPUT) do 
begin 


PDSINCPDS, 'DDNAME=SYSLIB,MEMBER=' 


While not EOFCPDS) do 
begin 
READLNCPDS, BUF); 
WRITELNCBUF); 


end; 
READLNCMEMBER) 
end 


end. 


Figure 43. Using the open options 
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This option applies to the proce- 
dures RESET and PDSIN. (This 
attribute is implied for TERMIN.) 


MEMBER=name 
This attribute specifies a member 
name of a partitioned data set 
(PDS). The member to be accessed 
1S indicated by "name". 


The MEMBER specification is 
required for the procedures PDSIN 
and PDSOUT (see "Partitioned Data 
Sets" on page 56). 


NAME=fn.ft.fm (CMS only) 
This attribute specifies the name 
of a CMS file which is to associ-~ 
ated with the file variable. This 
option has no affect if the program 
is not running under CMS. 


WE, NEL, Em" are the file name, 
file type and file mode, respec- 
tively, of the CMS file. Each must 
be separated by a period ('.'). A 
file mode of '*' is permitted. 


The NAME specification is applica- 
ble to the following procedures: 
RESET, REWRITE, UPDATE, PDSIN, and 
PDSOUT. : 


UCASE (CMS only) 
This option causes text that is 
being read from a file opened by 
TERMIN to be translated to upper 
case. This option applies only to 
programs running under CMS; it is 
ignored otherwise. 


CXopen INPUT for interactive *) 
CX input. *) 
(¥read lst member name 
CXloop until no more members 
(Xopen member for input 

|] MEMBER); 
(Xcopy each line of the 


C* member to file OUTPUT 


(¥read next member name 
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8.19 APPENDING TO A FILE ments. The DDname of the file is 
"LOG"; the file name is "LOG.DATA™. 

Data may be appended to an existing CMS: 

file by opening it for output with a FILEDEF LOG DISK LOG DATA CDISP MOD 

call to REWRITE and specifying a dispo- 

sition of "MOD" on tne corresponding TSO: 

DDname definition. ALLOC DDNCLOG) DSNCLOG.DATA) MOD 

The following examples illustrate how OS Batch: 

such a disposition is specified under //LQG DD DSN=ABC.LOG. DATA, DISP=MOD 


the various operating system environ- 
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9.1 READING A PASCAL/VS TRACE BACK 


The Pascal/VS trace facility provides 
useful information while debugging 
programs. It gives you a list of all 
of the routines in the procedure chain. 


For each routine the following informa- 
tion 15 given. 


e The name of the routine. 


e The statement number of the last 
statement to be executed in the 
routine (i.e. the statement number 
of the call to the next routine in 
the chain). 


o The address itn storage where the 
generated code for the statement 
begins. 

® The name of the module in which the 


routine 1s declared. 


The trace routine may be tnvoked in 
four different ways. You may invoke 
trace by placing in your source program 
a call to the pre-defined routine 
called TRACE. An example is given tn 
Figure 44 on page 60. In the example 
starting at the bottom we sea that 
Pascal/VS called the user's main pro- 
gram in the module named HASHASEG. 
Statement 24 of the main program con- 
tains the call to READ_ID, statement 3 
of READ_ID contains the call to 
SEARCH_ID, and so on. 


A trace will be produced when a program 
error occurs. An example 15 given In 


9.0 RUNTIME ERROR REPORTING 


Figure 45 on page 60. There 15 an 
error message tndicating a fixed point 
overflow. The traceback tells us the 
routine and the statement number where 
the error occurred. Looking at the 
trace we see that the error occurred at 
statement 3 1n routine FACTORIAL on the 
third recursive call. 


A trace will be produced when a check- 
ing error occurs. A checking error 
occurs when code produced by the com- 
piler detects an invalid condition such 
as ae subscript range error. (See 
"CHECK/NOCHECK" on page 31 for a 
description of compiler generated 
checks. ) Figure 46 on page 60 1s an 
example of a traceback that occurred 
from a checking error. The first line 
of the trace identifies the particular 
checking error that occurred. Looking 
at the trace we see that the error 
occurred at statement 4 in routine 
TRANSLATE. 


A trace will be produced when an IZ0 
error occurs. Figure 47 on page 60 is 
an example of this. In this case, 
statement 3 of routine INITIALIZE 
attempted to open a file for which no 
DDNAME definition existed. 


Due to optimization performed by the 
compiler, the code which tests for an 
error condition may be moved back 
several statements. Thus, when a 
runtime error occurs, the statement 
number indicated in the traceback might 
be slightly less than the number of the 
statement from which the error was gen- 
erated. 
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Trace back of called routines 

Routine stmt at address in module 
TRACE 4 02028C AMPXSENV 
HASHKEY 9 02018C HASHCSEG 
GET_HASH_PTR 2 021208 HASHBSEG 
SEARCH_ID 9 0213C8 HASHBSEG 
READ_ID 3 021550 HASHBSEG 
<MAIN-PROGRAM> 24 020278 HASHASEG 
PASCAL/VS | 02048C 


Figure 44. Trace called by a user program 


AMPXO018E Fixed Point Overflow 

Trace back of called routines 
Routine stmt at address tin module 
FACTORIAL 7 020146C TEST 
FACTORIAL 02014C TEST 
FACTORIAL 02014C TEST 
<MAIN-PROGRAM> 020298 TEST 
PASCAL/VS 02048C 


Figure 45. Trace call due to program error 


AMPX032E High Bound Checking Error 

Trace back of called routines 
Routine stmt at address in module 
TRANSLATE 020154 CONVERT 
TO_ASCITI 02024C CONVERT 
<MAIN-PROGRAM> 020338 CONVERT 
PASCAL/VS 02048C 


Figure 46. Trace call due to checking error 


AMPX04015S File could not be opened: SYSIN 
Trace back of called routines 
Routine stmt at address in module 
INITIALIZE 3 020154 COPY 
<MAIN-PROGRAM> 2 020218 COPY 
PASCAL/VS 02048C 


Figure 47. Trace call due to I/0 error 
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9.2 RUN TIME CHECKING ERRORS 


The following is a list of the possible 
checking errors that may occur In a 
Pascal/VS program at run time. 


Low bound 
Either the value of an array sub- 
script, or the value being assigned 
to a subrange type variable 1s less 
than the minimum allowed for the 
subscript or subrange. 


High bound 
Either the value of an array sub- 
script, or the value being assigned 
to a subrange type variable 15 
greater than the maximum allowed 
for the subscript or subrange. 


Nil pointer 
an attempt was made to reference a 
variable from a pointer which has 
the value nil. 


Case label 
the expression of a case-statement 
has a value other than any of the 
specified case labels and there 15 
no otherwise clause. 


String truncation 
the concatenation of two strings 
results in a string greater than 
32767 characters in length, or 
there was an attempt to assign toa 
string a value which has more char- 
acters than the maximum length of 
the string. 


Assertion failure 
an assert statement was executed in 
which its . associated boolean 
expression evaluated to the value 
FALSE. 


String subscript out of bounds 
there was an indexing operation on 
a string which was greater than the 
current length of the string. 


Function value 
a function routine returned to its 
invoker without being assigned a 
result. 


9.3 EXECUTION ERROR HANDLING 


Pascal/VS detects many kinds of errors 
during program execution; upon 
detection of an error, the Pascal/VS 


runtime library will provide error han- 
dling. 


Certain errors are considered fatal by 
the runtime library. Examples of these 
errors are operation exception and pro- 
tection exception. When a fatal error 
occurs the following happens: 


1. Pascal/VS produces a message 
describing the error; the message 
1s displayed on your terminal if 
you are executing tn VM/CMS or TS0, 
or written to DDname SYSPRINT oth- 
erwise. 


2. A trace back is displayed. 
is termi- 


3. The program execution 
nated. 


Other errors such as checking errors 
Will not stop program execution. You 
must determine the extent to which the 
non-fatal errors affect your program 
results. Pascal/VS performs the fol- 
lowing actions when a non-fatal error 
occurs. 


1. A message describing the error is 
produced; the message 1s displayed 
on your terminal if you are execut- 
ing tn VM/CMS or TSO, or written to 
DDname SYSPRINT otherwise. 


2. A trace back 1s generated. 


3. If the program was compiled and 
linked with the "DEBUG option and 
the program was not executed with 
the 'DEBUG' run time option, then a 
symbolic dump of the variables in 
the procedure experiencing the 
error will be produced; the dump is 
displayed on your terminal if you 
are executing in VM/CMS or TSO, or 
written to DDname SYSPRINT other- 
wise. 


4. If the program was compiled and 
linked with the 'DEBUG' option and 
the program was executed with the 
"DEBUG! run time option then the 
interactive symbolic debugger will 
be invoked as if a breakpoint had 
been encountered. 


Pascal/VS will allow a specific number 
of non-fatal errors to occur before the 
program 131s terminated. This number is 
set by the ERRCOUNT run time option 
(see "Run Time Options” on page 35). 
The default is 20. 
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9.4 USER HANDLING OF EXECUTION ERRORS 


SSS SSS 2 22 $2 £22225 2 222 FPS ese ee ee 222 22 25 2.222 22 SPSESEE SESS SSS SSS SSS SST S 


( ¥ 


(* RUNTIME ERROR INTERCEPTION ROUTINE 


(x 


(DE DE DE DE DE DE DE DE IE DE DE DE DE DE DE DE DE DE HE DE DE DE DE DE DE DEE DE DE DE DE DE DE DE DE DE DE DE DE DE HE DE DE DE DE DE DE DEE DE EE OE DE DE DE DEE DEE EE EE EEX +?) 


type 

ERRORTYPE = 1 .. 90; 

ERRORACTIONS = ¢ 
XHALT, 
XPMSG, 
XUMSG, 
XTRACE, 
XDEBUG, 
XDECERR, 
XRESERVED6, 
XRESERVED7, 
XRESERVED8, 
XRESERVEDS, 
XRESERVEDA, 
XRESERVEDB, 
XRESERVEDC, 
XRESERVEDD, 
XRESERVEDE, 
XRESERVEDF) ; 


ERRORSET = set of ERRORACTIONS; 
procedure ONERRORC 


const FERROR ERRORTYPE; 
const FMODNAME ALPHA; 
const FPROCNAME ALPHA; 
const FSTMTNO INTEGER; 
var FRETMSG STRING; 
var FACTION ERRORSET); 


EXTERNAL ; 


Figure 48. 


Pascal/VS provides a mechanism for you 
to gain control when an execution time 
error occurs. When such an error 
occurs, a procedure called 'ONERROR’ is 
called to perform any necessary action 
prior to generating a diagnostic. A 
default ONERROR routine is provided in 
the Pascal/VS library which does noth- 
ing. 


You may write your own version of 
ONERROR and declare it as an EXTERNAL 
procedure. The procedure will § be 
invoked when an error occurs; thus you 
may decide how the error should be han- 
.dled. Figure 48 shows the contents of 
the IBM-supplied include file that con- 
tains the information relevant to 
producing your own ONERROR routine. 


(¥number of execution errors *) 


(Xaction to be performed ¥*) 
(¥terminate program *) 
(Xprint pascal diagnostic .%) 
(¥print user's message *) 
(*produce a trace back x) 
CXinvoke the debugger ¥*) 
(Xdecr error counter x) 
CXRESERVED *) 
CXRESERVED *) 
CXRESERVED . *) 
(XRESERVED ¥) 
(XRESERVED *) 
CXRESERVED *) 
CXRESERVED x) 
CXRESERVED ¥*) 
CX¥RESERVED *) 
CXRESERVED *) 
CXERROR NUMBER *) 


(XMODULE NAME WHERE OCCURRED x) 
C(XPROCEDURE WHERE OCCURRED ¥) 


CXSTATEMENT NO *) 
C(XRETURNED USER'S MESSAGE *) 
(XACTIONS TO BE PERFORMED *) 


Contents of 'ZINCLUDE ONERROR' 


Upon entry to ONERROR -the parameter 
FERROR contains the number of the error 
that has been encountered. See "Exe- 
cution Time Messages" on page 150 to 
determine the message number corres~ 
ponding to a particular error. ® 


FMODNAME, FPROCNAME, and FSTMTNO con- 
tain the name of the module, the name 
of the routine, and the source state- 
ment number >» respectively, of the 
location where the error occurred. 


FACTION is a set variable which deter- 
mines what action is to be taken. Upon 
invocation of ONERROR, FACTION will 
describe the default action that will 
take place after ONERROR returns. You 
should examine this information and 
decide whether you would like to handle 


Each error intercepted by the Pascal/VS run time environment consists of a 


unique 3 digit number. A diagnostic message corresponding to the error 
will begin with the error number prefixed with the characters AMPX and 
suffixed with the character 'I', "E' or 'S* CInformational, Error, Severe 


error). 
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the error or let the default action 
take place. 


You may modify the FACTION parameter as 
you desire. If you set the XUMSG mem- 


% INCLUDE ONERROR; 
procedure ONERROR; 
begin 


ber of FACTION then you must also set 
FRETMSG with the text of the message. 
Figure 49 is an example of aeuser 
interception of execution time errors. 


(X¥do nothing if fixed, decimal or floating divide by zero *) 
€Xand diagnose fixed-point overflow in procedure HASHFNC *) 


if FERROR in [19, 21, 25] then 
nt >= C ] 
e 


se . 
if CFERROR = 18) & CFPROCNAME 
begin 
FACTION := [XUMSG]; 


FRETMSG : 
end; 
end; 


Figure 49. 


9.5 SYMBOLIC VARIABLE DUMP 


When a program error or checking error 
eccurs, a symbolic dump of all vari- 
ables which are local to the routine in 
which the error occurred may be 
produced. This dump will be produced 
if two conditions are met: 


° The source module containing the 
code from which the error occurred 
was compiled with the DE3SUG option. 


"HASHFNC') then 


*INPUT DATA CONTAINS GARBAGE’; 


Example of User Error Handling 


® The Pascal/VS debug library was 
included in the generation of the 
associated load medule. 


The variable dump is) placed on your 
terminal if you are executing in VM/CMS 
or TSO, or written to DDname SYSPRINT 
otherwise. 
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| The Pascal/VS interactive debugger is a 


tool that allows programmers to quickly 
debug Pascal/VS programs without hav- 
ing to write debug statements directly 
into their source code. Basic func~ 
tions include tracing program 
execution, viewing the runtime values 
of program variables, breaking at 
intermediate points of execution, and 
displaying statement frequency count-— 
ing information. The programmer uses 
Pascal/VS source names to reference 
statements and data. 


Under TSO and CMS, debugger commands 
are read directly from your terminal; 
likewise, the output 15 written direct- 
ly to your terminal. If the debugger 
is being run in OS batch, then the 
input is read from DDname SYSIN; the 
output is sent to SYSPRINT. 


In order to use the debugger, you must 
follow these three steps: 


@ Compile the module to be debugged 
with the DEBUG option. Modules 
that have been compiled with the 
DEBUG option can be linked with 
modules that have not been compiled 
with the DEBUG option. 


° When link editing your program, 
include the debug library. CIt 
must be located ahead of the 
runtime library in search order).? 


® When executing the load module, 
specify ‘'DEBUG"' as aoe run- time 
option.!9 This will cause the debug 
environment to become active and 
you will be immediately prompted 
for a debugger command. 


In the debugger environment the user 
may 1ssue debug commands and examine 


10.0 PASCAL/VS INTERACTIVE DEBUGGER 


variables in those modules which were 
compiled with the DEBUG option. 


10.1 QUALIFICATION 


A qualification consists of a module 
name anda routine name. The debugger 
uses the current qualification as the 
default to retrieve information for 
commands. The current qualification 
consists of the name of the routine and 
associated source module which was last 
interrupted when the debugger gained 
control. 


At the start of a debug session, the 
current qualification is the name of 
the module containing the main program, 
and the main program itself. 


10.2 COMMANDS 


This section describes the commands 
that a user may 1ssue with the debug 
facility. Every command may be abbre- 
viated to one letter if desired except 
the QUIT and CLEAR commands which have 
no abbreviation. Square brackets C('[' 
and 'J') are used in the command 
description to indicate optional parts 
of the command. 


Semicolons are used to separate multi- 
ple commands on each line. 


9 Under CMS, the debug library is included if the DEBUG option is specified 


when invoking PASCMOD. (see "How to Build a Load Module" on page 12.) 


Under TS0, the debug library is included by specifying the DEBUG keyword 
operand when invoking the PASCMOD clist. (see "How to Build a Load 


- Module” on page 18.) 


Options" on page 35. 


Run time options must be terminated with a slash ('/'). See "Run Time 
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10.2.1 BREAK Command 


Command Format: 


i stmts | 
| BREAK [EEmodules] [froutinel/] | | 
END 


stmt 
B Ef{modules] froutinel]s] | | 
END 


B 


Where: 


module is the name of a Pascal/VS 
module. 
routine is the name of a procedure 
or function tn the module. 
stmt is a number of a statement 
in the designated routine. 
END. 15 a keyword which denotes the 
end of the routine. 


This command causes a breakpoint to be 
set at the indicated statement. The 
program is stopped before the statement 
1s executed. 


The module and/or routine may be omit-— 
ted in which case the defaults are tak- 
en from the current qualification. 
stmt is the number of the statement on 
which to stop in the specified routine 
of the specified module. The statement 
numbers are found = on the source 
listing. END specifies that the break- 
point 1s to occur tn the epilogue of 
the routine immediately prior to the 
routine'’s return. 


A maximum of 8 breakpoints may be set 
at any one time. The following table 
tllustrates the meaning of the various 
forms. 


Input Module Procedure 
BS current current 

B/S current main program 
B P/S current P 

B M//S main program 
B M/P/S M P 


Where: 


current - means currently qualified 


module or procedure, 


M,P - are the names of a module 


or procedure 
Ss - 15 either a statement 
number or END 
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10.2.2 CLEAR Command 


Command Format: 

CLEAR 

Minimum Abbreviation: 
CLEAR 


There are no operands. 


The CLEAR command is used to remove all 
breakpoints. 


10.2.3 CMS Command 


ro Reena tctr teal tetera ew a 


Command Format: 

CMS 

Minimum Abbreviation: 
C 


There are no operands. 


OER er a eee ee 


This command activates the CMS subset 
mode. If the program 18 not being run 
under CMS, the command 18 ignored. 


10.2.4 DISPLAY Command 


Command Format: 


DISPLAY 
Minimum Abbreviation: 


D 


The DISPLAY command 1s used to display 
information about the current debugger 
session at the user's terminal. The 
information displayed 1s: 


e the current qualification, 

° where the user's program will 
resume execution upon the GO com- 
mand, 

e the current status of Counts, 

® the current status of Tracing. 
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10.2.5 DISPLAY BREAKS Command 10.2.6 DISPLAY EQUATES Command 


Command Format: 


DISPLAY EQUATES 


Command Format: 


DISPLAY BREAKS 


Minimum Abbreviation: | Minimum Abbreviation: 


DB DE 


There are no operands. There are no operands. 


The DISPLAY BREAKS command is used to The DISPLAY EQUATE command 1s used to 
produce a list of all breakpoints which produce a list of all equate symbols 
are currently set. and their current definitions. 


68 Pascal/VS Programmer's Guide 


10.2.7 END Command 


ommand Format: 


END 


Minimum Abbreviation: 


END 


The END command causes the program to 
immediately terminate. This command 15 
synonymous With QUIT. 


11 
equated to a data string. 


10.2.8 EQUATE Command 


Command Format: 


EQUATE identifier [datal 


Minimum Abbreviation: 


E identifier [data] 
Where: 


identifier is a Pascal/VS 
identifier. 

data is a command which the 
identifier is to represent. 


The EQUATE command equates an identifi- 
er name to a data string. When the 
identifier name appears in a command, 
it will be expanded inline prior to 
executing the command. 


As an example, the command 
EQUATE X ,B[I] 


will cause the variable "BCLIJ]™ to be 
viewed when "x" is entered as a 
command. The commands 


EQUATE Y RO.FI61.J 
»BLY] 


will cause the variable "B[IRA.FL6].J]" 
to be viewed. 


A samicolon may not terminate the 
EQUATE command; a semicolon will be 
treated as part of the data string. 
For example, the command 


EQUATE Z GO;LISTVARS 


will cause the "GO" and "LISTVARS" com- 
mands to be executed in succession when 
"7" 15 entered as a command. 


An equate command may be used to rede- 
fined the meaning of a debugger 
command: !! 


EQUATE GO WALK 


makes the command "GO" function as the 
command "WALK". 


An equate command may be cancelled by 
equating the previously defined iden- 
tifier to an empty data string: 


EQUATE 2 


There is one exception: the name EQUATE Cand its abbreviations) may not be 


Pascal/VS Interactive Debugger 69 


removes) the symbol a es from the 
debugger's equate table. 


Equates may be equated to strings which 
contain other equates. All substi- 
tution will take place after expansion. 
The commands 


EQUATE A Po.I 
EQUATE B ,XYZCA] 


will cause the symbol "B™" to be 
expanded to ",XYZ[Pa.I]". 
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10.2.9 GO Command 


Command Format: 


GO 


Minimum Abbreviation: 


G 


There are no operands. 


This command causes the program to 
either start or resume executing. The 
program will continue to execute until 
one of the following events occurs: 


e breakpoint 
° program error 
° normal program exit 


A breakpoint or program error will 
return the user to the Debug environ- 
ment. 


le 
7 PN 


10.2.10 Help Command 


Command Format: 


? 


Minimum Abbreviation: 


? 


There are no operands. 


The Help command lists all Debug com- 
mands. 


10.2.11 LISTVARS Command 


Command Format: 
LISTVARS 
Minimum Abbreviation: 


L 


There are no operands. 


This command displays the values of all 
variables which are local to the cur- 
rently active routine. 
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10.2.12 Qualification Command 


Command Format: 
QUAL [Cmodule 7] [routine] 
Minimum Abbreviation: 


Q@ {Emodule 7] [routine] 


Where: 


module is the name of a Pascal/VS 
module. 

routine is the name of a procedure 
or function in the module. 


If the user does not specify a module 
and/or a routine name the defaults are 
taken from the current qualification. 
The defaults are applied as follows: 


e the module name defaults to the 
current qualification. 


e the routine defaults to the main 
program if the associated module is 
a program module, or to the outer- 
most lexical level if the module is 
a segment module. 


The lexical scope rules of Pascal are 
applied when viewing variables. The 
current qualification provides the 
basis on which program names”) are 
resolved. If there 1s no activation of 
the routine available (no invocations) 
the user may not display local vari- 
ables for that routine. 


Qualification may be changed at any 
time during a Debug session. When a 
breakpoint 15 encountered, the quali- 
fication 185 automatically set to the 
module and the routine in which the 
breakpoint was set. 
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10.2.13 QUIT Command 


Command Format: 


QUIT 


Minimum Abbreviation: 
QUIT 


There are no operands. 


This command causes the program to end. 
It is similar to a normal program exit. 
The user 15 returned to the operating 
system. 


10.2.14 RESET Command 


Command Format: 
stmt 
RESET E{module/] [routinel/] | 
END 


Minimum Abbreviation: 


stmt 
R EC{Emodule,] [routinel7] | 
END 


Where: 


module is the name of a Pascal/VS 
module. 

routine is the name of a procedure 
or function in the module. 

stmt is a number of a statement 
in the designated routine. 


The RESET command 1s used to remove a 
breakpoint. The defaults are the same 
as the BREAK command. 


10.2.15 SET ATTR Command 


Command Format: 


ae 2 
OFF 


Minimum Abbreviation: 


SET ATTR 


The SET ATTR command is used to set the 
default way in which variables are 
viewed. The ON parameter specifies 
that variable attribute Information 
Will be displayed by default. The OFF 
parameter specifies that variable 
attribute information will not be dis- 
played by default. The default may be 
overridden on the variable viewing com- 
mand. 
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10.2.16 SET COUNT Command 


Command Format: 


ON 
SET COUNT [ | 
OFF 


Minimum Abbreviation: 


ON 
sc | | 
OFF 


The SET COUNT command is used to initi- 
ate and terminate statement counting. 
Statement counting is used to produce a 
summary of the number of times every 
statement is executed during program 
execution. The summary 15 produced at 
the end of program execution and 15 
written to the standard file OUTPUT. 
Statement counting may also be initi- 
ated with the runtime COUNT option. 
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10.2.17 SET TRACE Command 


Command Format: 


| ON 
SET TRACE [ OFF | 
: TO ddname 


Minimum Abbreviation: 


ON 
S T [ OFF | 
TO ddname 


Wheres 


ddname is the name of a DDname 
poeLe the trace output 1s to be 
sent. | 


The SET TRACE command is used to either 
activate or deactivate program 
tracing. Program tracing provides the 
user with a list of every statement 
executed in the the program. This is 
useful for following the execution flow 
during execution. 


The output from the program trace nor- 
mally will go to your terminal, by 
using the TO option you may direct the 
output to a specific file. 


10.2.18 TRACE Command 


Command Format: 


TRACE 


Minimum Abbreviation: 


T 


This command has no operands. 


The TRACE command is used to produce a 
routine trace at the user's terminal. 
The procedures on the current tnvoca- 
tion chain are listed along with the 
most recently executed statement in 
each. 


“according to their data type. 


10.2.19 Viewing Variables 


Command Format: 


[{ option [)]] 


» Variable 
Where: 


variable is a Pascal variable. 
See the chapter entitled 
"Variables" in the Pascal/VS 
Reference Manual for the 
syntax of a variable. 

option is either ATTR or NOATTR. 


This command allows the user to obtain 
the contents of a variable during pro- 
gram execution. 


The static scope rules that apply to 
the current qualification are applied 
to the specified variable. If the var- 
iable is found to be a valid reference, 
then its value 1s displayed. If the 
name cannot be resolved within the cur- 
rent qualification, the user is 
informed that the name 1s not found. 
If the name resolves to an automatic 
variable for which no activation cur- 
rently exists the user 1s informed that 
the variable cannot be displayed. 


As can be seen from the following exam- 
ples, array elements, record fields, 
and dynamic variables may all be 
viewed. Variables are formatted 
Entire 
records, arrays and spaces are dis- 
played as a hexadecimal dump. The user 
may view an array slice by specifying 
fewer indices than the declared dimen- 
sion of the array. The missing indices 
must be the rightmost ones. 


The options ATTR or NOATTR can follow a 
left parenthesis. The default is taken 
from the SET ATTR command. The initial 
default is NOATTR. If the user gives 
ATTR as an option, attributes of the 
variable are displayed along with the 
value of the variable. The attributes 
are the data type, memory class, length 
if relevant, and the routine where the 
variable was declared. 


Note: a subscripting expression may 
only be a variable or constant; that 
is, it may contain no operators. Thus, 
such a reference as 

»,albatj]] 


is valid Cat least syntactically), but 
the reference 


,palit+3] 
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1s not a valid reference because the 
subscripting expression is not a vari>- 
able or constant. 


Examples 


7a 
»> Pa 


»pa.b 
»b0L1,xJ.int CATTR 
»palx,yj].ba.all] 


If the variable being viewed has not 
been assigned a value then the results 
depend on the variable's type: 


e If the variable is of a simple type 
(integer, char, real, etc.), then 
the word "uninitialized™ will be 
printed. 


e If the variable 1s of a structured 
type Carray, record), then the con- 
tents will be printed in 
hexadecimal; each byte of the the 
variable which is uninittalized 
will have the value mt oe 
(hexadecimal). 
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10.2.20 Viewning Memory 


Command Format: 
» hex-string [€ : length ] 


Where: 


hex-string is a number in 
hexadecimal notation. 
length is an integer. 


This command 1s used to display the 
contents of a specific memory location. 
Memory beginning at the byte specified 
by the hex string 1s dumped for the 
number of bytes specified by the length 
field. If the length is not specified 
memory 18 dumped for 16 bytes. The 
dump 18S in both hex and character for- 
mats. 


The hex string must be an hexadecimal 
number surrounded by single quotes and 
followed by an 'x' Ceg. '35D05'X). The 
length is specified in decimal. 


Examples 


»'*20000°X 
»'G6cf0'X =: 100 


10.2.21 WALK Command 


Command Format: 


WALK 


Minimum Abbreviation: 


W ‘ 


There are no operands. 


This command causes the program to 
either start executing or resume exe- 
cuting. The program execution will 
continue for exactly one statement and 
then the user will be returned to 
Debug. This command 15 useful for sin- 
gle stepping through a section of code. 
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10.3 DEBUG TERMINAL SESSION 


lprogram Primgen; 


|[type _ 
PrimeRange = 1..100; (*¥Specify limits for the ¥*) 
| (* number of prime numbers *) 
va 

pane > arrayl PrimeRange J] of Integer; 
(XThis array stores the result) 
NotUsed > PrimeRange; (*XUsed test preceeding primes *) 
SavelIndex > PrimeRange; (xUsed to remember last used *) 
(* spot In Prime x) 
TestNumber : Integer; (X¥Test value for primeness *) 


function IsPrime(€ Testval : INTEGER) : BOOLEAN; 


| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| var 
| Quotient, (X¥Testval div prime ¥ ) 
| Remainder : Integer; (XTest value for primeness Le) 
PrimeIndex : PrimeRange; (xUsed test preceeding primes *) 
| begin (*IsPrime *%) 
1 | PrimeIndex := Lowest(PrimeRange); (*Test each previous prime *) 
| repeat (*Starting with the first one *) 
2 | PrimeIndex := Succ(PrimeIndex); (Get next prime *) 
| (¥Compute relative primeness of Testval and a known prime ¥*) 
3 | Quotient := Testval div PrimelPrimelIndex]; 
G | Remainder := Testval - Quotient * PrimelPrimeIndex] 
5 | until CRemainder=0) | CQuotient <= PrimelPrimeIndex)])); 
6 | if Remainder = 0 then (XIf the number was divided by*) 
7 | IsPrime := FALSE (Xany known Prime, then this *) 
| else | (Xis not prime *) 
gS | IsPrime := TRUE; 
| end; (XIsPrime *%) 
lbegin 
1 | Primel1] = 23 (*First three primes *) 
2 | Primel2] = 3; (x ditto x) 
3 | Primefl3] = 53 (x ditto *) 
4 | TestNumber = 53 (xStart canidates at 5 *%) 
5 | SaveIndex = 3; (XLast used prime entry *%) 
| repeat 
6 | TestNumber := TestNumber + 2; | (X¥Test each odd number *) 
| (X starting with the first *) 
7 | if IsPrime(€(TestNumber) then (XIf canidate 15 a prime *) 
| begin (x¥Save it in the next entry ¥*) 
& | SaveIndex:= Succ(Savelndex); CX of the prime table *) 
9 | Prime[SaveIndex] := TestNumber 
end 
10 | until SaveIndex = Highest(PrimeRange) ; 
| (Print results at ten to a line © *) 
ll | for PrimeIndex := Lowest(PrimeRange) to Highest(PrimeRange) do 
begin 
12 | Write(€ PrimelPrimeIndex]:7 );3 C¥Print one prime number *) 
13 | if (PrimeIndex mod 10) = 0 then (X*If ten have been printed *) 
| Writeln (x then skip to next line *) 
14 | end; 
lend. (*Primgen *) 


Figure 50. Sample program for Debug session 


The following series of figures is a commands are high Lighted and under 
sample Debug terminal session that dem- lined. The program being executed is 
onstrates breakpoints, viewing vari- shown in Figure 50 

ables and other DEBUG commands. User 
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pascalvs primeen (debug 
INVOKING PASCAL/VS R2.0 
NO COMPILER DETECTED ERRORS 


Source Lines: 62; Total time: 1.20 séconds; Total rate: 3092 LPM 
R; T=1.7373.05 16:13:54 


pascrod primgen (debug 
R; T=0.90/2.19 16:14:51 


filedef output terminal 
R; T=0.03/0.05 16:14:52 


primgen debug count 7 


Debug(PRINGEN <MNAIN-PROGRAM>): 


Figure 51. Compiling, Linking and executing a program with DEBUG 


x 4 


Name Cabbreviation is tn capital letters) 
? This command list 
» Display a vartable 
Break Set a breakpoint 
CLEAR Remove all breakpoints 
Cms Enter CMS subset mode 
Display Display currently resume point 
Display Break Display currently set breakpoints 
Display Equate Display currently set equates 
Halt your program 
Set an identifier to a literal value 
Continue executing your program 
Listvars List all variables 
Qual Set default module/routine 
QUIT Halt your program 
Reset Remove a specific breakpoint 
Set Attr Set default viewing information ON/OFF 
Set Count Turn statement counting ON/OFF 
Set Trace Turn tracing ON/OFF/TO fileid 
Trace Display invocation chain of routines 
Walk Execute one statement of current routine 
Debug(PRIMGEN <MAIN-PROGRAM>): 


Figure 52. The HELP command of DEBUG 
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break 8 
PRIMGEN/<MAIN-PROGRAM>/8 
Debug(PRIMGEN <MAIN-PROGRAM>): 


go ; | 
Stopped at PRIMGEN/<MAIN-PROGRAM>/8 
Debug(PRIMGEN <MAIN-PROGRAM> ): 


Walk 


Stopped at PRIMGEN/<MAIN-PROGRAM>7/9 
Debug(PRIMGEN <MAIN-PROGRAM> ): 


Walk 
Stopped at PRIMGEN/<MAIN-PROGRAM>/10 
Debug(PRIMGEN <MAIN~PROGRAM>): 


Figure 53. Setting Breakpoints and Statement Walking 


listvars 

Variables for procedure: <MAIN-PROGRAM> 
PRIME : 
CO003CA28) 

000000 00000002 00000003 00000005 FEFEFEFE '° 
000010 FEFEFEFE FEFEFEFE FEFEFEFE FEFEFEFE * 
(00000020 through 0000018F is the same as above) 
NOTUSED = uninitialized 
SAVEINDEX = 3 
TESTNUMBER = 7 | 

Debug(PRIMGEN <MAIN-PROGRAM>): 


Figure 54. The LISTVARS command —- List all variables 
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set trace on 
Program trace in on -- output to '<TERMINAL>'* 
Debug(PRIMGEN <MAIN-PROGRAM> ): 


a0 
Resuming PRIMGEN <MAIN-PROGRAM> 
6-7 
PRIMGEN ISPRIME 
1 


225 
6 
7 
Returning from ISPRIME 
Resuming PRIMGEN <MAIN-PROGRAM> 
10 
6-7 


Returning from ISPRIME 
Resuming PRIMGEN <MAIN-PROGRAM> 
> 8-9 
Stopped at PRIMGEN/<MAIN-PROGRAM>/8 
Debug(PRIMGEN <MAIN-PROGRAM>): 


Figure 55. The Trace Mode of DEBUG 
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= ==> 10 

== [===> 6-7 

Executing PRIMGEN ISPRIME 
= SoS 

===SsS==> 2-5 

====>==> 2-5 

SSscS=> 6 

peal aed emi en 8 


Returning from ISPRIME 

Resuming PRIMGEN <MAIN-PROGRAM> 
2 8-9 

Stopped at PRIMGEN/<MAIN-PROGRAM>7/8 
Debug(PRIMGEN <MAIN-PROGRAM>): 


walk 
Stopped at PRIMGEN/<MAIN-PROGRAM>7/9 
Debug(PRIMGEN <MAIN-PROGRAMD>): 


====s===> 10 
Stopped at PRIMGEN/<MAIN-PROGRAM>/10 
Debug(PRIMGEN <MAIN-PROGRAM> ): 


“Sts 2==> 6-7 
Stopped at PRIMGEN/<MAIN-PROGRAM>/6 
Debug(PRIMGEN <MAIN-PROGRAM>): 


Walk 
Stopped at PRIMGEN/<MAIN-PROGRAM>7/7 
Debug(PRIMGEN <MAIN-PROGRAM>): 


Wa lk 
Executing PRIMGEN ISPRIME 
======> 
======> 2-5 
====>==> 6 
====S>==> 7 


Returning from ISPRIME 

Resuming PRIMGEN <MAIN-PROGRAM> 
aimee piandioad eh | 10 

Stopped at PRIMGEN/<MAIN-PROGRAM>/10 
Debug(PRIMGEN <MAIN-PROGRAM>): 


ga 
Stopped at PRIMGEN/<MAIN-PROGRAM>/8 


Debug(PRIMGEN <MAIN-PROGRAM> ): 


Figure 56. Walking when the Trace Mode is On 
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Currently qualified to PRIMGEN 


<MAIN-PROGRAM> 


Will resume at PRIMGEN <MAIN-PROGRAM> 8 


Counts are on 

Trace 15 on 

Trace output to <TERMINAL> 
Debug(PRIMGEN <MAIN-PROGRAM>): 


display breaks 
Module Routine 
PRIMGEN <MAIN-PROGRAM> 


Debug(PRIMGEN <MAIN-PROGRAM> ): 


equate tn _,testnumber 
Debug(PRIMGEN <MAIN-PROGRAM>): 


tn 
» TESTNUMBER 
TESTNUMBER = 19 
Debug(PRIMGEN <MAIN-PROGRAM> ): 


display equate 
TN 
Debug(PRIMGEN <MAIN-PROGRAM>): 


set trace off 
Program trace is off 
Debug(PRIMGEN <MAIN-PROGRAM>): 


Figure 57. Miscellaneous DEBUG 


,testnumber 


TESTNUMBER = 19 
Debug(PRIMGEN <MAIN-PROGRAM> ): 


» testnumber Cattr 
DATA TYPE: INTEGER 
MEMORY CLASS : LOCAL AUTOMATIC 
DECLARED IN =: <MAIN-PROGRAM> 
TESTNUMBER = 19 
Debug(PRIMGEN <MAIN-PROGRAM>): 


»prirel1o0] 
PRIMEL10] = uninitialized 
Debug(PRIMGEN <MAIN-PROGRAM>): 


»primel5] 
PRIME(L5] = 11 
Debug(PRIMGEN <MAIN-PROGRAM>): 


Figure 58. Commands to Display 


==> ,TESTNUMBER 


Stmt 
8 


Commands 


a Variable 
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break isprimresend 
PRIMGEN/ISPRIME/END 
Deb 


ugCPRIMGEN <MAIN-PROGRAM>): 


go 
Stopped at PRIMGEN/ISPRIME/END 
Debug(PRIMGEN ISPRIME): 


trace 
Trace back of called routines 
Routine | stmt at address in module 
ISPRIME 8 020138 PRIMGEN 
<MAIN-PROGRAM> 7 020260 PRIMGEN 
PASCAL/VS 02055A 


Debug(PRIMGEN ISPRIME): 


set trace on 
Program trace in on -- output to '<TERMINAL>'! 
Debug(PRIMGEN ISPRIME): 


equate next qo;listvars 
Debug(PRIMGEN ISPRIME): 


next 


GO;LISTVARS 
Resuming PRIMGEN <MAIN-PROGRAM> 
8-9 


LS 10 

[2 >a=s> 6-7 

Executing PRIMGEN ISPRIME 
SSS a2> l 

SSS SS 27-5 

So. oS 6 

<--> 7 


Returning from ISPRIME 

Stopped at PRIMGEN/ISPRIME/END 
Variables for procedure: ISPRIME 
PRIMEINDEX = 2 

QUOTIENT = 13 

REMAINDER = 0 

TESTVAL = 39 
Debug(PRIMGEN ISPRIME): 


set trace off 
Program trace its off 
Debug(PRIMGEN <MAIN-PROGRAM>): 


Figure 59. Using Multiple commands on one Line and other commands 
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reset 8 
i Breakpoint at PRIMGEN/<MAIN-PROGRAM>/8& has been removed 
Debug(PRIMGEN <MAIN-PROGRAM>): 


go 
Stopped at PRIMGEN/ISPRIME/END 
Debug(PRIMGEN ISPRIME): 


listvars 
Variables for procedure: ISPRIME 
PRIMEINDEX = 2 
QUOTIENT = ll 
REMAINDER = 0 
TESTVAL = 33 
Debug(PRIMGEN ISPRIME): 


reset end 
Breakpoint at PRIMGEN/ISPRIME/END has been removed 
Debug(PRIMGEN ISPRIME): 


go 
2 3 5 7 11 13 17 19 23 29 

31 37 41 43 47 53 59 61 67 71 

73 79 83 89 97 101 103 107 109 113 

127 131 137 139 149 151 157 163 167 173 

179 181 191 193 197 199 211 223 2e/ 229 

233 239 241 251 257 263 269 2/71 277 281 

283 293 307 311 313 317 331 337 347 349 


S53 359 367 373 379 383 389 397 401 409 
419 421 431 433 439 443 449 457 461 463 
467 479 487 491 499 503 509 521 523 541 


Figure 60. The Reset Breakpoint Command 


PASCAL/VS STATEMENT COUNTING SUMMARY PAGE 1 


<MAIN-PROGRAM> IN PRIMGEN CALLED 1 TIMECS) 
FROM-TO: COUNT FROM-TO: COUNT FROM-TO: COUNT FROM-TO: COUNT 
1-5 31 6-7 3268 8-9 :97 10 :268 
>] 


Lt 12-13 :100 14 :10 

ISPRIME IN PRIMGEN CALLED 268 TIME(S) 

FROM-TO:COUNT FROM-TO:COUNT FROM-TO: COUNT FROM-TO: COUNT 
1 :=268 2-5 =:910 6 3268 7 ?171 
8 :97 


Figure 61. Statement Counting Summary 
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This section describes the rules that 
the Pascal/VS compiler employs In map- 
ping variables to storage locations. 


11.1 AUTOMATIC STORAGE 


Variables declared locally to a routine 
via the var construct are assigned off- 
sets within the routine's dynamic stor- 
age area (DSA). There is ae DSA 
associated with every Invocation of a 
routine plus one for the main program 
itself. The DSA of a routine 15 allo- 
cated when the routine 1s called and is 
deallocated when the routine returns. 


11.2 INTERNAL STATIC STORAGE 


For source modules that contain va- 


riables declared STATIC, a single 
unnamed control section ("private 
code') 15 associated with the source 


module in the resulting text deck. 
Each variable declared via the STATIC 
construct, regardless of its scope, is 
asstgned a unique offset within this 
control section. 


11.3. DEF STORAGE 


Each def variable which is initialized 
by means of the value declaration will 
generate a named control section 
(csect). Each def variable which is 
not initialized will generate a named 
| COMMON section.!2 The name of the sec- 
tion 1s derived from the first eight 
characters of the variable's name. 


11.0 STORAGE MAPPING 


11.4 DYNAMIC STORAGE 


Pointer qualified variables are allo- 
cated dynamically from heap storage by 
the procedure 'NEW’. Such variables 
are always aligned on ae$doubleword 
boundary. 


11.5 RECORD FIELDS 


Fields of records are assigned consec-— 
utive offsets within the record in a 
saquential manner, padding vhere nec” 
essary for boundary alignment. Fields 
Within unpacked records are aligned in 
the same way as variables are aligned. 
The fields of a packed record are 
aligned on a byte boundary regardless 
of their declared type. 


11.6 DATA SIZE AND BOUNDARY ALIGNMENT 


A variable defined itn an Pascal/V5S 
source module is assigned storage and 
aligned according to its declared type. 


11.6.1 The Predefined Types 


The table in Figure 62 displays the 
storage occupancy and boundary align- 
ment of variables declared with a pre- 
defined type. 


STORAGE MAPPING OF DATA | 


DATA TYPE SIZE in bytes 


ALFA 
ALPHA 
BOOLEAN 


CHAR 
INTEGER 

| SHORTREAL 
REAL 

| STRINGClen) 
STRINGPTR 


Figure 62. 


12 
| nicate with FORTRAN subroutines. 


oO 


— 
Com OOD Yee OO 


a 


BOUNDARY ALIGNMENT 


BYTE 
BYTE 
BYTE 
BYTE 
FULL WORD 
FULL WORD 
DOUBLE WORD 
HALF WORD 
FULL WORD 


+ 
NM 


Storage mapping for predefined types 


Each def variable becomes a named COMMON block which may be used to commu- 
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11.6.2 Enumerated Scalar 


An enumerated scalar variable with 256 
or fewer possible distinct values will 
occupy one byte and will be aligned on 
a byte boundary. If the scalar defines 
more than 256 values then it will occu- 
py a half word and will be aligned ona 
half word boundary. 


11.6.3 Subrange Scalar 


A subrange scalar that 15 not specified 
as packed will be mapped exactly the 
same way as the scalar type from which 
it is based. 

A packed subrange scalar is mapped as 
indicated in the table of Figure 63. 
Given a type definition T as: 


type 
T = packed i..j; 


and 


ORDC i); 
ORD(C3); 


Range of SIZE in|ALIGNMENT 
re | bytes 


0..255 
~128..127 
~32768..32767 
0..65535 
-16777215 
-8388608. .8388607 


BYTE 
BYTE 
HALF WORD 
HALF WORD 
BYTE 
BYTE 
FULL WORD 


0. 


otherwise 


Storage mapping of 
subrange scalars 


Figure 63. 


Each entry in the first column in the 
above table is meant to include all 
possible sub-ranges within the spec 
ified range. For example, the range 
100..250 would be mapped in the same 
way as the range 0. 255. 


11.6.4 RECORDS 


An unpacked record is aligned on a 
boundary tn such away that every field 
of the record is properly aligned on 
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its required boundary. That 1S> 
records are aligned on the boundary 
required by the field with the largest 
boundary requirement... 


record A below will ba 
aligned on a full word because its. 
field Al requires a full word 
alignment; record B will be aligned on 


For example, 


a double word because it has a field of 
-type REAL; record C will be aligned on 


a byte. 


record (full word aligned*) 
> INTEGER; 
CHAR 


(Xdouble word aligned) 


REAL; 
BOOLEAN 


(Xbyte aligned*) 


packed 0. 
ALPHA 


2553 


Alignment of records 


Figure 64. 


Packed records are always aligned on a 
byte boundary; 


11.6.5 ARRAYS 
Consider the following. type 
definition: | 
type | 
A = array € s ] of ¢ | 
where type 5 is a simple scalar 
and t is any type. 
A variable declared with this: type 


definition would be aligned on the 
boundary required for data type 't'. 

With the exception noted below, the 
amount of storage occupied by this var- 
iable 31s computed by the POT OWTNG 
expression: 7 7 


CORDCHIGHEST(s))- ORD(LOWEST(5))+1)_ 
* SIZEOFCt) 


The above expression is not necessarily 
applicable if et? represents an 
unpacked record type. In this case, 
padding will be added, if necessary, 
between each element so that each ele- 
ment will be aligned on a_ boundary 
which meets the requirements of the 
record type. 


Packed arrays are mapped exactly as 
unpacked arrays, except padding 15 nev- 
er inserted between elements. 


A multi-dimensional array 15 mapped as 
an array of array(s). For example the 
following tho array definitions would 
be mapped identically in storage. 


.n J] of t 


array [C i..3 J] of 
array C m..n J] of t 


array [CF i..j5, m. 


11.6.6 FILES 


File variables occupy 64 bytes and are 
aligned ona full word boundary. 


11.6.7 SETS 


SETs are represented internally as a 
string of bits: one bit position for 
each value that can be contained within 
the set. 


To adequately explain how sets are 
mapped, two terms will need to be 
defined: The base type is the type to 
which all members of the set must 
belong. The fundamental base type 
represents the non-subrange scalar 
type which 18S compatible with all valid 
members of the set. For example, a set 
Which is declared as 


set of '0'..'9' 


has the base type defined by '0°..'°'9'; 
and a fundamental base type of CHAR. 


Any two unpacked sets which have the 
same fundamental base type will be 
mapped identically (that 15, occupy the 
same amount of storage and be aligned 
on the same boundary). In other words, 
given a set definition: 


type | 
S 
T 


set of s; 
set of t; 


where 5s 15 a non-Subrange scalar type 
and t 15 a subrange of s: both S and T 
will have the same length and will be 
aligned in the same manner. 


Sets always have zero origin; that is, 
the first bit of any set corresponds to 
a member with an ordinal value of zero 
(even though this value may not be a 
valid set member). 


base type. 


Unpacked sets will contain the minimum 
number of bytes necessary to contain 
the largest value of the fundamental 
Packed sets occupy the min- 
imum number of bytes to contain the 
largest valid value of the base type 
Thus, variables A and B below will both 
occupy 256 bits. 


var 
A : set of CHAR; 
B : set of "O'..'9'; 


Variables C and D will both occupy 16 
bits; variable E will occupy 8 bits. 


var 
C : set of (€1,C02,C3,C4,C5,C6, 
C7,C8&,C9,C10,C011,C12 
€12,C013,014,C15,C16); 
DB: set of C1..C8; 
E : packed set of C1..C8; 


A set type with a fundamental base type 
of INTEGER is restricted so that the 
largest member to be contained in the 
set may not exceed the value 255; 
therefore, such a set will occupy 256 
bits. 


Thus, variables U and V below will both 
occupy 256 bits; variable W will occupy 
21 bits; variable X will occupy 32 
bits. 


var 
U : set of 0..255; 
V : set of 10..20; 
W : packed set of 10..20; 
X : packed set of 0..31; 


Given that M 1s the number of bits 
required for ae particular set, the 
table in Figure 65 indicates how the 
set will be mapped in storage. 


ALIGNMENT 


Range of 
M 


BYTE 

HALF WORD 

BYTE 

FULL WORD 
<= 256) (M+7) BYTE 


Storage mapping of 


SETS 


Figure 65. 
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11.6.8 SPACES 


A variable declared as a space 
aligned ona byte boundary and occupies 


the number of bytes indicated in the 


~—690 
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1s 


length specifier of the type 
definition. For example, the variable 
§ declared below occupies 1000 bytes of 
storage. 


var S: space [1000] of INTEGER; 


12.1 LINKAGE CONVENTIONS 


Snead 


Pascal/VS uses standard 0S linkage con- 
ventions with several additional 
restrictions. The result is that 
Pascal/VS may call any program that 
requires standard conventions and may 
be called by any program that adheres 
to the additional Pascal/VS restric— 
tions. 


On entry to a Pascal/VS routine the 
contents of relevant registers are as 
follows: 


® Register 1 - points to the parame- 
ter list 


o Register 12 = points to the 
Pascal/VS Communication Work Area 
(PCWA) 


e Register 13 - points to the save 
area provided by the caller 


° Register 14 - return address 


e Register 15 - entry point of called 
routine 


Pascal/VS requires that the parameter 
register (R1) be pointing into the 
Dynamic Storage Area (DSA) stack in 
such a way that 144 bytes prior to the 
Rl address 15 an available save area. 
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12.2 REGISTER USAGE 


The table in Figure 66 describes how 
each general register is used within a 
Pascal/VS program. The floating point 
registers are used for computation on 
data of type REAL. 


register(s) purpose(s) 

0,1 
temporary work registers 
for the compiler 
standard linkage usage 
on calls 


6,7,8,9 
registers assigned by the 
compiler for computation 
and for data base 
registers 


code base registers 
of the currently 
executing routine 


address of the DSA of the 
main program 


always points to Pascal/VS 
Communication Work Area 


always points to the local 
DSA 


temporary work registers 
for the compiler 
standard linkage usage 
on calls 


Figure 66. Register usage 
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12.3 DYNAMIC STORAGE AREA 


On entry to a procedure or function, an 
area of memory called a Dynamic Storage 
Area (DSA) is allocated. This area is 
used to contain save areas, local vari- 
ables and compiler generated tempo- 
raries. A Pascal/VS routine requires a 
DSA of at least 144 bytes; if the rou- 
tine has parameters or local variables, 
more space 1s needed. 


register 13-—->,; 
0: Register 
Save area 


72: SITIES SAAS SS 


| \SSSS SASS 


reserved for 
error handling 


floating point 
registers 
FO - F6 


parameter 
list 


local variables 
and compiler 
temporaries 


translator 
temporaries 


parameter list 
to be built here 


16 byte rte parms 
> 


144 byte save area 


144 byte save area 


The first 72 bytes are generally used 
according to standard OS linkage con- 
ventions. The first word 1s used to 
copy the previous data base register at 
the current procedure nesting level. 


Figure 67 illustrates the structure of 
the DSA. Figure 68 on page 93 shows 
the DSECT expansion of the DSA. CA 
copy of this DSECT may be found in mem- 


ber DSA o f the standard include | 


library!?.) 


reserved for future use 

potnter to translator temporaries 
pointer to parameter list build area 
pointer to the end of the DSA 
pointer to the frequency count table 


execution flags, check function flag 


if the routine has no parameters then 
this space 1s not present 


if the routine has no local variables 
and requires no compiler temporaries, 
then this space 1s not present 


if the routine requires no translator 
temporaries, then this space is not 
present 

The following areas only in last DSA 

for the next routine to be called 


for runtime environment in case of 
error 

room for parameters if required by 
error recovery 


//// = indicates that the field is not presently used. 


Figure 67. DSA format 


13> Under MVS, the name of this library is sys1.PASCALVS.MACLIB. Under CMS, 


it is PASCALVS MACLIB. 
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DSA 
DSASDIS 
DSALSVA 


DSARETA 
DSAEPAD 
DSARGO 
DSAPREG 
DSACODE 
DSARGS 
DSARG4 
DSARGS 
DSARG6 
DSARG? 
DSARG8 
DSARG» 
DSACQD2 
DSALIB 


DSAPCWA | 


DSAAKEY 
DSARES4 
DSATPTR 
DSAPPTR 
DSARPTR 
DSACNTS 
DSARAID 
DSAFUNX 
DSARES1 
DSACKSAI] 
DSACKSA2 
DSACKSAS 
DSAFLO 
DSAFL2 
DSAFL4 
DSAFL6 
DSALEN 


DSAPRM1 
DSAPRM2 
DSAPRM3 
DSAPRM4 
DSAPRMS5 
DSADATA 


Figure 68. DSA DSECT: 


TOSOTMMTANNY KOOOOAMMNMNNMXKXKTNNANUNUATNAANAAANANNATN ANNAN TN TN TN 


Save space for display level 

Pointer to last save area 

(reserved for future use) 

Return address 

Entry point address 

Save area for register 0 

Save area for parameter list pointer (reg 1) 
Save area for base register for code (reg 2) 
Save area for register 
Save area for register 
Save area for register 
Save area for register 
Save area for register 
Save area for register 
Save area for register 
Save area for 2nd base register for code (reg 10) 
Save area for register 11 (main DSA address) 

Save area for register 12 (CPCWA pointer) 

Used by attention processor 

Reserved 

Address of temporary section of DSA 

Address of parameter list build area 

Address of runtime parameter list build area 
Address of count table 

Interactive debugger flags 

Function assignment check flag 
Reserved 

Save area utilized by error recovery 
Save area utilized by error recovery 
Save area utilized by error recovery 
Save area for floating point register 
Save area for floating point register 
Save area for floating point register 
Save area for floating point register 
Length of DSA header 


ww OON AUD UW 


AHANMS 


Start of parameters and/or local variables 


anchored off of register 13. 
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12.4 ROUTINE INVOCATION 


Each invocation of a Pascal/VS routine 
must acquire a dynamic storage area 
CDSA) (Csee "Dynamic Storage Area" on 
page 932). This storage is allocated 
and deallocated in a LIFO Clast 
inffirst out) stack. If the stack 
should become filled to its capacity, a 
storage overflow routine will attempt 
to obtain another stack from which 
storage is to be allocated. 


Every DSA must be at least 144 bytes 
long; this is the storage required by 
Pascal/VS for a save area. The rou- 
tine's local variables and parameters 
are mapped within the DSA starting at 
offset 144. 


Upon entering a routine, register 1 
points 144 bytes into the routine's 
DSA, which is where the parameters 
passed in by the caller reside. This 
implies that the calling routine 15s 
responsible for allocating a portion of 
the DSA required by the routine being 
called, namely 144 bytes plus enough 
storage for the parameter list. This 
portion of storage is actually an 
extension of the caller's DSA. 


> 


REG 13 


(144 bytes) 


Parameters 


top of stack 


| save area 


of any routines 
yet to be invoked 
----|{ 144 bytes into this DSA 
parameter list to | 
be built for calls | 
to other routines | 
J 


{ 

+ I 

p> |! 

a |! 

t 

e | 

I 

{ 

{ 

! 

ow 
{ 
I 
{ 
[ 
Vv 


caller's save area 


local save area 


In general, the DSA of a routine con- 
sists of five sections: 


1. The local save area (14% bytes). 
2. Parameters passed in by the caller. 


3. Local variables required by the 
routine. 


4. A save area required by any routine 
that will be called. 


5. Storage for the largest parameter 
list to be built for a call. 


Sections 1 and 2 are allocated by the 
calling routine; sections 3, 4%, and 5 
are allocated by the prologue of the 
routine to which the DSA belongs. 


Upon invocation, register 13 points to 
the base of the DSA of the caller, 
which is where the caller's save area 
is located. The new value of register 
13 may be computed by subtracting 144 
from the value in register 15 
Figure 69 illustrates the condition of 
the stack and relevant registers imme- 
diately at the start of a routine. 


start of DSA of caller 


start of DSA of called routine 


144% bytes into DSA 


~---y storage yet to be allocated 


----| start of DSA of routine yet 


to be called 


Figure 69. Snapshot of stack and relevant registers at start of routine 
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12.5 PARAMETER PASSING 


Pascal/VS passes parameters in several 
different ways depending on how the 
parameter was declared. In every case, 
register 1 contains the address of the 
parameter list. 


The parameter list is aligned on a 
doubleword boundary and each parameter 
is aligned on its proper’ boundary. 
Addresses are aligned on word bounda~ 
ries. 


12.5.1 Passing by Read/Write Refer- 
ence 


This mechanism is tndicated by use of 
the reserved word var in the routine 
heading. Actual parameters passed in 
this way may be modified by the 1tnvoked 
routine. 


The parameter list contains the address 
of the actual parameter. 


Routine Heading: 


procedure PROC(var I: INTEGER); 


Routine Invocation: 


PROC(CJ); 


Parameter list: 


address of J 


Passing by Read/Write 


reference 


Figure 70. 


12.5.2 Passing by Read-Only Reference 


This mechanism 1s indicated by use of 
the reserved word const in the routine 
heading. Actual parameters passed in 
this way may not be modified by the 
invoked routine. 


The parameter list contains the address 
of the actual parameter. 


Routine Heading: 


procedure PROC(const I: INTEGER); 


Routine Invocation: 


PROCCJ#+5); 


Parameter list: 


address of a memory location 
which contains the value of 
J+5. 


Passing by Read-only 


reference 


Figure 7l. 


12.5.3 Passing by Value 


This mechanism 1s the default way in 
which parameters are passed. Parame- 
ters passed in this way are treated as 
if they are prer-initialized local 
variables in the invoked routine. Any 
modification to these parameters by the 
invoked routine will not be reflected 
back to the caller. If the actual 
parameter is a scalar, pointer, or set, 
then the parameter list will contain 
the value of the actual parameter. If 
the actual parameter i858 an array, 
record, space, or string, then the 
parameter list will contain the address 
of the actual parameter. In the latter 
case, the called procedure will copy 
the parameter into its local storage. 


Routine Heading: 
procedure PROC( 


I : INTEGER; 
A =: ALPHA); 


Routine Invocation: 


PROC(J, alpha"); 


Parameter list: 


value of J 
address of ‘alpha 


Passing by value 


Figure 72. 
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12.5.4 Passing Procedure or Function 
Parameters | 


For procedures or functions which are 
being passed as parameters, the address 
of the routine is placed in the parame- 
ter list. | | 


Note: As a Pascal/VS restriction, a 


routine passed as a parameter must not 
be nested within another routine. 


Routine Heading: 


procedure PROC( | 
function XCY¥: REAL): REAL ); 


Routine Invocation: 


PROCCCOS); 


Parameter list: 


address of COS routine 


Figure 73. Passing routine 


parameters 
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12.5.5 Function Results 


Pascal/VS functions have an implicit 
parameter which precedes all specified 
parameters. This parameter contains 
the address of the memory location 
where the function result is to be 
placed. 


Routine Heading: 
function FUNC(C: CHAR): INTEGER; 


Routine Invocation: 


FUNCCTL'); 


Parameter list: 


- address of returned integer 
result 
- value of character gee 


Figure 74. 


Function results 


SORA METAL MIIDEY Rirt TAPED REED 1 TUR arc NE PE NR PE RISA COA TEP PSEA OE OE EAT ER EGE 


Every Pascal/VS procedure or function 
1S arranged in the order shown below. 
Register 2 jis the code base register 
for the first 4K bytes of the routine 
body. If the routine occupies more 
than 4K bytes, register 10 is used as 
the code base register for the second 
4K bytes. If a routine exceeds 8K 
bytes of storage, the compiler will 
diagnose 1t as a terminal error. 


DEBUG control 
Entry Pt block 
Reg 2 Ses 


entry prologue 


routine 


This must be 
<= 8192 
exit epilogue 


literals: 

ACONS, VCONS, 

and small literals 
1 to 16 bytes long 


STRING and SET 
literals longer 
than 16 bytes 


statement table 
Cif present) 


Figure 75. Routine format 
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12.7 PCWA 


PCWA = 
record | 

PCWAENDS INTEGER; (x¥Ptr to end of current stack *) 
PCWACURS INTEGER; (xPtr to start of current stack *) 
PCWASELF INTEGER; (XSalf identifing flag 'PCWA’ *) 
PCWAFL2 PCWA FLG_SET; (Xcompiler runtime flag flags *) 
PCWARC(C16) INTEGER; (xXReturn code *) 
PCWAFILE PCBP; (Xpointer to open files *) 
PCWAPARM SYSPARMP ; (Xparms string ¥*) 
PCWAMODS DBCBP; (Xmodule header chain (debugger) *) 
PCWAESAP INTEGER; (¥ptr to external save area ¥} 
PCWADISP arrayl0..7] of DSAP; (XDISPLAY *) 
PCWADTMP INTEGER; (xDebugger temporary ¥*) 
PCWARTMP REAL; C(Xfloating point temporary *) 
PCWARO REAL; CX'*GEQQDNCODODND000NNDN'X *) 
PCWA2231 REAL; CX¥’*GEQ0O0000010000000'X *) 
PCWAMASK ALFA; CX¥*80460201008040201'X ¥*) 
PCWAMFIX ALFA; (X¥temp for first 8 bytes of DSA *) 
PCWASAVE arrayl1..36] of INTEGER; (Extra save area *) 
PCWAPLST arrayll..16] of INTEGER; (*parm list build *) 
PCWAFIN INTEGER; (XPointer to the HALT address %) 
PCWAALLC INTEGER; (Xaddress of memory allocator * } 
PCWADLLC INTEGER; (Xaddress of memory deallocator *) 
PCWADFLT INTEGER; (Xxdefault allocation size ¥*) 
PCWACHKR INTEGER; (Xaddress of checker routine ¥*) 
PCWADSAS INTEGER; (Xsize of DSA in bytes (144) *) 
PCWAMEMF INTEGER; (Xaddr of memory fixup routine *) 
PCWAFLAG INTEGER; (XInter-language communication *) 
PCWAPICA ALFA; (XPICA save area ¥*) 
PCWASEED INTEGER; (X¥seed of "RANDOM’ function ¥) 
PCWIAXEND INTEGER; (Xend of stack for SETMEM ¥) 
PCWAECNT INTEGER; (Xerror count until abend *) 
PCWACHK INTEGER; (Xaddress of check routine *) 
PCWACMEM INTEGER; (Xcurrent memory in use *) 
PCWASTAX spacel[20] of CHAR; (XSTAX list form *) 
PCWAEOPN BOOLEAN; CXTRUE if PCWAEOUT is open *) 
PCWADINT BOOLEAN; CXTRUE if debugger initializied *) 
PCWATSO BOOLEAN; CXTRUE if TSO environment ¥*) 

BOOLEAN; (*reserved %) 
PCWAATTN INTEGER; (Xaddress of attn handling *) 
PCWAFCNT INTEGER; CxXcent of files without DDnames =  *) 
PCWASIZE INTEGER; (Xsize of initial alloc for pcwa*) 
PCWADINA INTEGER; (xAddress of AMPDINIT or nil *) 
PCWABOPA INTEGER; (XAddress of AMPDIBOP or nil x) 
PCWABBA INTEGER; (*Address of AMPDIBB or nil ¥% ) 
PCWAERAD INTEGER; (*XError address ~- CHKR or DIAG x) 
PCWAFSTK INTEGER; (xChain of free dsa stack elems x) 
PCWAENDA INTEGER; (¥Address of AMPDEPIL or nil ¥%) 
PCWAPROC(1200) space([64] of CHAR; (*Work area for PROCESS *) 
PCWAUSER( 1264) space[64] of CHAR;(*Area reserved for user *) 
PCWAEQUTC1328) TEXT> CXERROR OUTPUT PCB ¥%) 
PCWAOUTC1392) PCB; CXOUTPUT PCB *) 
PCWAINC1456) PCB; CXINPUT PCB x) 
PCWAPDATC1520) STRINGC254); (Xactual parm List after format *) 
PCWAERSAC1776) SPIEDSA; (X¥savearea for error routines *) 
PCWAPIE PSW; (xXPSW from PIE x) 
PCWASPIE INTEGER; 
PCWAMEMAC1984) 

array(MEM_LEVELS] of SPACE_DESC; 

(¥space for memory allocator ¥*) 
end; 
| Figure 76. Pascal Communications Work Area | 


The Pascal Communications Work Area is 
always addressable from register 12. 
This area of memory is used to contain 
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Global information about the execution 


of the program. 


The area is divided into two parts, 
each 15s 2048 bytes in length. The 
first part contains data that needs to 
be addressable; the second 15 composed 
of the small routines used to augment 
the generated code (such as string con- 
catenation). Figure 76 on page 98 
shows the structure of the first half 
of the PCWA. Each field is described 


below: 

PCHAENDS 
a pointer to the end of the current 
DSA stack. 

PCHACURS 
a pointer to the top of the current 
DSA stack. 

PCWASELF 
a self defining field that is set 
to 'PCWA’. 

PCHAFL2 
flags used to enable runtime fea- 
tures. 

PCWARC 


the value assigned by the last exe- 
cution of RETCODE or zero if 
RETCODE has not been called. 


PCWAFILE 
a pointer to the first file CPCB) 
that has been opened but not 
closed. 


PCNAPARM 
a pointer to the parameter string 
passed to the program. 


PCHWAMNODS 
a pointer to the head of a chain 


that links modules together as 
required by the interactive 
debugger. 

PCWAESAP 


contains the pointer to the save 
area for the caller of the Pascal 
program. 


PCWADISP 
the runtime display - a stack of 8 
base registers that contains the 
address of the DSAs that are avail- 
able to the executing routine. 


PCWADTMP 
a temporary used by the interactive 
debugger. 


PCHWARTMP 
a temporary used in conversion 
between floating point numbers and 
integers. 


PCWARO 
a constant that contains the float- 
ing point value zero. 


PCHA2231 


a constant that contains the float-— 
ing potnt value of 2 raised to the 
31 power minus 1 in an unnormalized 
form. 


PCWAMASK 
eight bytes that contain masks 
which are used in set operations. 


PCHWAMFIX 
a temporary used during runtime 
error recovery. 


PCHASAVE 
used as a register save area when a 
program error or checking error 
occurs. 


PCNAPLST 
used when a program error or check- 
ing error occurs to build a parame- 
ter list in order to invoke a 
recovery procedure. 


PCNAFIN 
address of a procedure which termi- 
nates the program no matter what 
state it is in. This procedure is 
normally HALT. 


PCWAALLC 
address of a system dependent rou- 
tine which is responsible for allo- 
cating blocks of storage. 


PCWADLLC 
address of a system dependent rou- 
tine which releases blocks of stor- 
age. 


PCNADFLT 
the default number of bytes of 
storage that the allocation rou- 
tine will allocate when called. 


PCHNACHKR 
the address of the routine which 1s 
invoked to diagnose ae checking 
error. 


PCWADSAS 
the size of the smallest DSA. Its 
value 1s 144. 


PCWAMEMF 
contains the address of the memory 
fixup routine, which is called when 
the DSA stack overflows. 


POHAFLAG 
a flag used when communicating 
between different languages. 


PCHAPICA 
1s used for a save area for the 
PICA. 


PCWASEED 
contains the current seed for the 
RANDOM function. 


PCWAXEND 
contains the true end of the cur- 
rent stack, PCWAENDS may not be 
correct, PCWAENDS is made incor- 
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rect in order to force a call to 
AMPXMEMF so that a DSA may be ini- 
tialized (if SETMEM option is ena- 
bled). 


PCHAECNT 
| contains the number of non-fatal 
errors which will be tolerated 
before the program will be abended. 


PCWACHK | 
contains the address of the routine 
Which gains control when a checking 
error occurs. This routine is nor- 


mally AMPXCHKR. 


PCWACNEM 
defines which heap 1s in use, nor- 
mally the value is one, which indi- 
cates that the users heap 1s 
available. 


PCHASTAX 
contains the list form of the STAX 
macro. 


PCHNAEOPN 
a flag that indicates whether the 
error file, PCWAEOUT has’ been 
opened. 


PCWADINT 
1s a flag Indicating whether 
AMPDCOM Cdebugger common area) has 
been initialized yet. 


PCHWATSO 
is a flag indicating whether we are 
executing 1n a TSO environment. 


PCNAATTN 
contains the address of the termi- 
nal attention routine. 


PCNAFCNT 
contains the number of the next 
generated DDname. 


PCWASIZE | 
contains the size of the initial 
allocation of the PCWA. 


PCWADINA 
contains the address of the 
AMPDINIT routine, which initial- 


izes the interactive debugger. 


PCWABOPA 
contains the address of the 
AMPDIBOP routine, which is invoked 
at each procedure entry when the 
debugger 15 active. 
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PCHABBA | - 
contains the address of the AMPDIBB 
routine, which is invoked at each 
basic block of code when the 
debugger is active. 


PCWAERAD 
contains the offending . address 
when a checking error or a program 
error occurs. 


PCHAFSTK 
points to the beginning of a chain 
of all free blocks of storage. 


PCWAERDA | 
address of the AMPDEPIL routine, 
which 15S invoked from the epilogue 
of each routine when the debugger 
is active. 


PCWAPROC 
reserved for future use. 


PCHAUSER 


reserved for Pascal/VS users. 


PCWAEOUT 
the file CPCB) to where execute 
time error diagnostics 1s sent. 


PCNAQUT 
the PCB for the standard file OQUT- 
PUT. 


PCWAIN 
the PCB for the 
INPUT. 


PCNAPDAT 
a string that contains the passed 
in symbolic parameter list after it 
it has been formatted. 


standard file 


PCWAERSA 
a small save area used when a SPIE 
exit is invoked. 


PCWNAPIE 
a place to save certain information 
from the SPIE. 


PCWASPIE 
spie work area 


PCWANEMA 
descriptors used to control the 
allocation and deallocation poli- 
cies of dynamic storage and I/Z0 
buffers. 
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PCB - PASCAL FILE CONTROL BLOCK 


PCB 


record 


en 


Figure 


Every Pascal/VS file 
a Pascal control block (PCB) An PCB 


PCBFILEP 
PCBFLAGS 
PCBELEM 
PCBHAME 
PCBCODE 


PCBBUFIDX: 
PCBBUFLEN: 


PCBBUFP 
PCBOPTP 
PCBLAST 
PCBNEXT 
PCBICBP 
PCBSTART 
PCBSTAT 


d; 


77. #$=Pascal file Control Block 


BUFFERP; 


FILEFLAGS; 


HALFWORD; 
ALFA; 


MagicNumber ; 


HALFWORD; 
HALFWORD; 
BUFFERP; 
OPTP; 
PCBP; 
PCBP; 
LCBPs:.... 
HALFWORD; 
IOSTATUS; 
CHAR; 
INTEGER; 
INTEGER; 
INTEGER; 
INTEGER; 


is represented by 


composed of 64 bytes of space. 


The fields are defined as: 


set of file flags (16 bits). 


that 


open for input. 


that 


open for output. 


T the file is of type TEXT. 


has fixed 


PCBFILEP 
points to 
the file. 
PCBFLAGS 
flags are: 
FINPUT indicates 
FOUTPUT indicates 
FTEX 
FEOLN end-of-line 
true. 
FEOF end-of-file 
true. 
FFIXED file 
records. 
FINT 


condition 


condition 


is 


the current element of 


The 


15 


1s 


1s 


1s 


length 


ER the file was opened as an 
interactive file. 


FSTATUS the 


FFEO 


PCBSTAT 


errors. 


L end-of-line 


true, 


user 
and report 


will 


of READLN. 


condition 
but not as a result 


check 
the 


1s 


(¥Pascal Control Block 


(X¥file pointer 

(¥file flags 

(X¥length of file component 
(X¥file-variable name 
C(Xinitialization test 
(Xbuffer index 

(Xbuffer length 

(Xpointer to start of buffer 
(X¥ptr to OPTIONS descriptor 
(Xlink to last PCB of chain 
(Xlink to next PCB of chain 
(¥ptr to Implem. Ctrl Block 
(Xinitial value of PCBBUFIDX 
(¥status of last open 
C¥<not-used> 

(¥<not-used> 

(¥<not-used> 

(¥<not-used> 

(¥<not-used> 


CPCB) format 


FOPTS an options string was 
specified’ in the last 
open. 

PCBELEM 
the length of one component of the 
file. 

PCBNANME 


~ the DDNAME of the file. 


PCBCODE 
an encoded value that 15s used to 
test whether the PCB has been ini- 
tialized; this is not required for 
files uwaich are local variables but 
is needed for files that are allo- 
cated dynamically (NEW). 


PCBBUFIDX 
byte index 
(PCBBUFP). 


PCBBUFLEN 
total length of buffer in bytes. 


PCBBUFP 
address of the beginning of the 
buffer. 


into the I/0 buffer 


PCBOPTP 
address of the control block that 
describes the information passed 
through the options string as the 
file is being opened. The proce- 
dures which open a file and pass an 


options string are: RESET, 
REWRITE, UPDATE, TERMIN, TERMOUT, 
PDSIN or PDSOUT. 

PCBLAST 
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back chain of currently open PCBs. 


PCBNEXT 


forward chain of currently open 
PCBs. 


PCBICBP 


102 


points to a system dependent con- 
trol block to be used by the lowest 
level of interface to the I0 access 
methods. 
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PCBSTART 


contains the initial value of 
PCBBUFIDX, which is used to deter- 
mine 1f the current buffer contains 
any data that needs processing pri- 
or to closing the file. 


PCBSTAT 


status of the file. 


It iS sometimes desirable to invoke 
subprograms (procedures) written in 
other programming langauges: this is 
useful to obtain services not available 
directly in Pascal/VS. It 31s also 
desirable to have a Pascal/VS procedure 
called from a non-Pascal program: this 
would allow you to take advantage of 
Pascal in an existing application with- 
out rewriting the entire application. 
This chapter will discuss the options 
available to you and what you must do 


TNL SN20-4445 (31 December 1981) to SH20-6162-1 


13.0 INTER LANGUAGE COMMUNICATION 


We can divide inter-language communi-— 
cation into two classes: 


e The Pascal procedure is the calling 
procedure and the non-Pascal pro- 
cedure is being called. 


e The Pascal procedure 1s called from 
a non-Pascal calling procedure. 
Your options are summarized in 

Figure 78. 


in order to have this flexibility. 


Dee eased Pascal as the calling language Pascal as the called language 


FORTRAN 
Use a call statement in FORTRAN 
to call the Pascal procedure. 
The Pascal procedure must be 
defined with the MAIN directive. 
After the last call to a Pascal 
procedure you must call PSCLHX 
(Pascal halt execution). 


Define procedures and functions 
in Pascal using the FORTRAN 
directive. This enables you to 
call a subprogram written in 
FORTRAN. 


Assembler 
Define procedures and functions 
in Pascal using the FORTRAN or 
the EXTERNAL directive. If you 
use EXTERNAL you will be able to 
specify an arbitary Pascal 
parameter list. 


COBOL 
Define procedures and functions Use a call statement in COBOL 
in Pascal using the FORTRAN to call the Pascal procedure. 
directive. This enables you COBOL should be compiled with 
to call a subprogram written in the "NODYNAM' option and the 
COBOL. You may desire to call call must be a call of a 
ILBOSTPO prior to calling a literal. The Pascal procedure 
COBOL program. Consult the must be defined with the MAIN 
COBOL Programmer's guide for directive. After the last call 
details. to a Pascal procedure you must 


call PSCLHX. 
. PL/I 
Define procedures and functions 
in Pascal using the FORTRAN 
: directive. This enables you 
to call a subprogram written in 
PL/I. You should define the PL/I 
procedure with the FORTRAN 
option. Consult the PL/I OS 
Programmer's guide for further 
details. 


Figure 78. 


Use a V-type constant in the 
Assembler routine to define the 
Pascal entry point. You must 
define the Pascal procedure as 
EXTERNAL, MAIN, or REENTRANT. 
After the last call to a Pascal 
procedure you must call PSCLHX. 


Use a call statement in PL/I to 
call a Pascal procedure. The 
PL/I procedure should specify the 
{Pascal as an EXTERNAL. After the 
last call to a Pascal procedure 
you must call PSCLHX. 
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The details of Pascal/VS linkage con- 
ventions are discussed in the chapter 
"Code Generation for the IBM/370" on 
page 91. You should familiarize your- 
self with this section - especially if 
you plan to use Assembler language. 


13.1 LINKING TO ASSEMBLER ROUTINES 


Writing an Assembler language routine 
for Pascal/VS is a simple operation 
provided that a set of conventions are 
carefully followed. There are two rea- 
sons for the need for these 
conventions: 


1. Pascal/VS parameter passing con- 
ventions: As described in "Parame- 
ter Passing™ on page 95, Pascal/VS 
parameters are passed in a variety 
of ways, depending on their attri- 
butes. 


2. The Pascal/VS environment: This is 
an arrangement of registers and 
control blocks used by Pascal/VS to 
handle storage management and run- 
time error recovery. (see "Regis- 
ter Usage™ on page 91.) 


13.1.1 Writing Assembler Routine with 
Minimum Interface 


Writing an Assembler routine with the 
minimum interface requires the least 
knowledge of the runtime environment. 
Howaver, such a routine has the follow- 
ing deficiencies: 


CSECT 

ENTRY procname 
-procname DS OH 

STM 14,12,12¢€13) 
BALR basereg,0O 
USING *,basereg 

ST 13,5AVEAREAt+4 
LA 13,SAVEAREA 


anyname 


e It may not call a Pascal/V5S 
routine; 

° It must be non-recursive; 

e If a program error should occur 


(such as divide by zero), the Pas- 
cal/VS runtime environment will 
not recover properly § and the 
results will be unpredictable. 


When a Pascal/VS program invokes an 
Assembler language routine, register 
14 contains the return address and reg- 
ister 15 contains the starting address 
of the routine. The routine must fol- 
low the System/370 linkage conventions 
and save the registers that will be 
modified in the routine. It must also 
save any floating point register that 
is altered in the routine. 


Upon entry to the routine, register 13 
will contain the address of the regis~- 
ter save area provided by the caller, 
and register 1 will point to the first 
of a list of parameters being passed 
Cif such a list exists). Once the reg- 
ister values are stored in the caller's 
save area, the save area address (reg- 
ister 13) must be stored in the 
backchain word in a save area defined 
by the Assembler routine itself. 
Before returning to the Pascal/VS rou- 
tine, the registers must be restored to 
the values that they contained when the 
Assembler routine was invoked. 


If you insert your Assembler 
instructions at the point indicated in 
the skeletal code shown in Figure 79, 
your Assembler routine can be called 
from a Pascal/VS routine and you need 
have no Knowledge of the Pascal/VS 
environment. 


declare routine name as an entry point 
entry point to routine 
save Pascal/VS registers in Pascal/VS save area 
establish base register 


store Pascal/VS save area address 
load address of local save area 


body of Assembler routine 


restore the floating point registers if 
they were saved 


13,4013) 
14,12,12(13) 


20F'O' 


B 
SAVEAREA 
E 


Figure 79. 
tnvoked from Pascal/VS 
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Minimum interface to an Assembler 


restore Pascal/VS registers 


14 return to Pascal/VS 
local save area 


routine: skeletal code to be 
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13.1.2 Writing Assembler Routine with General Interface 


procname PROLOG LASTREG=r,VARS=n,PARMS=p 


YES 
EPILOG prop=| | 
NO 


where: 


procname is the entry point name of the routine. 


LASTREG is a number between 3 and 12, inclusive, which indicates the 
highest register to be modified by the routine between 3 and 12. 


VARS is the 
passed-in parameters. 


number of bytes required for any 


local data, including 


PARMS is the number of bytes required for the largest parameter list 


to be built within the routine. 


DROP indicates whether register 2 


15 to be dropped as a base regis~ 


ter after the epilogue is executed. 


defaults: 
LASTREG=12 
VARS=0 
PARNHS=0 


DROP=YES 


Figure 80. PROLOG/EPILOG macros 


If an Assembler routine has at least 
one of the following characteristics, 
the general interface must be used: 


e It calls a Pascal/VS routine; 
e It is recursive; 
e Program errors must be intercepted 


and diagnosed by the Pascal/VS run- 
time environment. 


Two Assembler macros' are available 
which are used to generate the prologue 
and epilogue of an Assembler routine 
with a general Pascal/VS interface. 
The macro names are PROLOG and EPILOG 
and their forms are described in the 
figure above. 


The PROLOG macro preserves any regis~ 
ters that are to be modified and allo- 
cates storage for the DSA. It also 
includes code to recover from a stack 
overflow and program error. The label 
of the macro is established as an ENTRY 
point; register 2 is established as the 
base register for the first 4096 bytes 
of code. 


Upon entering a routine prior to exe- 
cuting the PROLOG code, the following 
registers are expected to contain the 
indicated data: 


e Register 1 - address of the parame- 
ter list built by the caller, which 


is 144 bytes into the DSA to be 
used by the called routine. 


e Register 12 - address of the Pascal 
Communication Work Area CPCWA)D. 


e Register 13 - address of the DSA of 
the calling routine. 


e Register 14 ~- return address. 


e Register 15 - address of the start 
of the called routine. 


Upon executing the code generated by 
the PROLOG macro, the registers are as 
follows: 


@ Register 0 - unchanged 

e Register 1 - address of an area of 
storage in which parameter lists 
may be built to pass to other rou- 
tines. 

e Register 2 - base register for the 
first 4096 bytes of code within the 
invoked routine. 

e Registers 3 through 11 - unchanged. 

e Register 12 - unchanged 

° Register 13 - address of the local 


DSA of the routine just invoked. 
The first 144 bytes is the register 
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save area for the invoked routine. 
Following the save area is where 
the parameters passed in by the 
caller are located. Immediately 
after the parameters is storage for 
local variables followed by a 
parameter list build area. 


e Register 14 - unchanged. 
e Register 15 - unpredictable. 


The EPILOG macro restores the saved 
registers, then branches back to the 
calling routine. In order for the epi- 
logue to execute properly, register 13 
must have the same contents as was 


established by the prologue. The iwacro 
will cause register 2 to he dropped as 
a base register unless DROP=NO is spec~ 
ified. 


The contents of the floating point reg- 
isters are not saved by the PROLOG mac- 
ro. If the floating point registers 
are modified, they must be restored to 
their original contents prior to 
returning from the routine. 


A skeleton of a $general-interface 
Assembler language routine which may be 
called by a Pascal/VS program is give 
below. 


The following names have the indicated meaning 

Tcsectnam’ 1s the name of the csect in which the routine resides 
"procname! is the name of the routine. 

"parmsize’ is the length of the passed-in parameters 

"varsize' 1s the storage required for the local variables 


plist’ is the length of the largest parameter list required for calls 
to other routines from "procname" 


sectnam CSECT 
% 


x% 
% 
% 
x 
% 
* 'lastreg’ is the highest register Cup to 12) which will be modified 
¥ 
x 
x 
c 


procname PROLOG LASTREG=lastreg, VARS=varsi zetparmsize,PARMS=plist 


° 


<== insert code here 


o 


EPILOG 
END 


Figure 81. 
invoked from Pascal/VS 
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General interface to an Assembler 


routine: skeletal code to 


13.1.3 Receiving Parameters From Rou- 
tines 


Parameters received from a Pascal/VS 
routine are mapped within a list in the 
manner described in "Parameter 
Passing” on page 95. At invocation 
register 1 contains the address of this 
list. 


If the general interface (see "Writing 
Assembler Routine with General Inter- 
face" on page 105) is used in writing 
the Assembler routine, passed-in 
parameters start at offset 144 from 
register 13 after the prologue has been 
executed. 


13.1.4 Calling Pascal/vS Routine from 
Assembler Routine 


An Assembler language routine that was 
invoked from a Pascal program may call 
a Pascal procedure provided that: 


° the general Pascal/VS interface 
was incorporated within the Assem- 
bler routine, and 


® the Pascal/VS routine to be called 
1s declared as external. 


See Figure 83 on page 108 as an 
example. 


If the Assembler routine was not 
invoked from a Pascal/VS routine, then 
the Pascal/VS run time environment must 
be set up prior to entering the 
Pascal/VS routine. To do this, the 
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Pascal procedure must be declared with 
the MAIN or REENTRANT directive. (See 
Figure 85 on page 110 for an example.) 
When such a procedure is invoked for 
the first time, a minimum environment 
is created. On subsequent calls, this 
environment 1s restored prior to exe- 
cuting the procedure. To remove the 
environment Cfree stack space, atc.), 
the procedure PSCLHX is provided. 


Prior to making the call to a Pascal 
procedure from Assembler’ language, 
register 1 must contain the value 
assigned to it within the PROLOG code. 
Parameters to be passed are stored into 
appropriate displacements from regis- 
ter 1 as described in “Parameter 
Passing™ on page 95. 


At the point of call, register 12 must 
contain the address of the Pascal Com- 
munications Work Area CPCWA). This 
will be the case if the Assembler rou- 
tine was invoked from a Pascal/VS rou- 
tine and has not modified the register. 


To perform the call, a V-type constant 
address of the routine to be called is 
loaded into register 15 and then the 
instruction 'BALR 14,15' is executed. 


13.1.5 Sample Assembler Routine 


In Figure 82 on page 108 and Figure 83 
on page 108, a sample Assembler routine 
is listed which may be called from a 
Pascal/VS program. This routine exe- 
cutes an OS TPUT macro to write a line 
of text to a user's terminal. 
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type 
BUFINDEX = 0..80;3 
BUFFER = packed arrayl1..80] of CHAR; 


(Xthis routine is in assembly language*) 


procedure TPUTC. 
const BUF : BUFFER; 
LEN : BUFINDEX); 
EXTERNAL; 


(Xthis routine 1s called from the assembly language routine) 
procedure ERROR(C 
: RETCODE: INTEGER; 
const MESSAGE: STRING); 
ENTRY; 


begin | 
TEEN eeRE MESSAGE, *, RETURN CODE = *, RETCODE) 
end; 


Figure 82. Pascal/VS description of Assembler routine: the Assembler rou- 
tine is shown in Figure 83. 


TIOSEG CSECT 
TPUT PROLOG LASTREG=4,VARS=8 only registers 3 and 4 are modified 


% 
3,144¢€13) load address of "BUF" parameter 
G4,148(13) laod value of 'LEN’ parameter 
€3),04) write content of "BUF to terminal 
15,15 check return code 
TPUTRET if no error then return 

build parm list for call to ‘ERROR' 

15,01) assign to 'RETCODE’ parameter 
3,TPUTMSG load address of message 
3,401) assign to ‘MESSAGE’ parameter 
15,=VCERROR) load address of ‘ERROR’ procedure 
14,15 call 'ERROR' 

% 


TPUTRET EPILOG | | 
x 
TPUTMSG DC AL2ZCL*TPUTTEXT) halfword length of string 
TPUTTEXT DC C'TPUT ERROR’ message text 

END 


Figure 83. Sample Assembler routine: this routine 1s invoked by a 
Pascal/VS routine and, within itself, invokes a Pascal/VS rou- 
tine. 
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Sil Calling a Pascal/VS Main Pro- 


6 Ci 
gram from Assembler Routine 


A Pascal/VS program may be invoked from 
an assembler language routine by load- 
ing a V-type address constant of the 
main program name into register 15 and 
executing a BALR instruction with 14 as 
the return register. 


Program to be called: 
program test; 
begin 


end. 


The convention employed in passing 
parameters to a program 1s dependent on 
whether you are running under CMS or 
under TSO (Cor OS Batch). Both con- 
ventions require that register 1 be set 
to the address of. the parameter data. 


Assembler instructions to perform the call under CMS: 


LA 1,PLIST 
L 15,=VCTEST) 
BALR 14,15 


PLIST DS OF 
DC CL&8'TEST' 
DC CL8' token 1° 
DC CL8'token 2° 


DC ""CL8' token n' 
DC 8X'FF* 


Assembler instructions to perform the call under VS2 Cand TSO): 


LA 1,PLIST 
L 15,=VCTEST) 
BALR 14,15 


PLIST DS OF 

DC XL1°80" 

DC  AL3C(PARMS) 
PARMS DC FL2"'length! 


Figure 84. 


set first bit of address 


length of parameter string 
DC C'parm string goes here’ 


Example of calling a Pascal/VS program from an assembler routine 
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SEGMENT SQUARE; 


procedure SQUARECvar X : 


MAIN; 
Procedure SQUARE; 
begin 
Me SK eX 
end; 
TOSQ CSECT | 
USING *,15 
STM 14,12,12(13) 
ST 13,SAVEAREAt+4 
BALR 2,0 
USING *,2 
LA 13,SAVEAREA 
LA 1,PLIST1 
L 15,=VCSQUARE) 
BALR 14,15 
LA 1,PLIST2 
L 15,=VCPSCLHX) 
BALR 14,15 
L 13,SAVEAREAt+4 
LM 14,12,12(¢13) 
BR 14 
PLIST1 DC A(X) 
X  ~—6©dBe D'4.0" 
PLIST2 DC ACZERO) 
ZERO DC Fro’ 
SAVEAREA DS 18F 
END 
Figure 85. 


REAL); 


establish addressability 
save callers registers 
save address of callers save area 


establish addressability 

set new save area . 
REG 1 POINTS TO PARAMETER LIST 
load address of Pascal procedure 
call SQUARE 

REG 1 POINTS TO PARAMETER LIST 
LOAD ADDRESS OF PASCAL PROCEDURE 
call SQUARE 

return 


PARAMETER LIST 
PARAMETER LIST 


Example of Assembler as the caller to Pascal/VS 
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program FROMPSCL; (*¥Pascal program heading 
procedure SUMC(var I : INTEGER; 
const J : INTEGER); 


FORTRAN; 
var 
I,J > INTEGER; (*Define two local variables 
begin 


I := 0; (*¥Set running sum to zero 
for J := 1 to 10 do (Xloop through ten values 
begin 
SUMCTI, J); CXcompute the next sum 
eet ae current running sum is ',1:0); 
ena; 


end . CXFROMPSCL 


CSECT 
USING *,15 establish addressability 
14,12,12¢€13) save callers registers 


13,SAVEAREAt4S4 save address of callers save area 
5,0 


Ul 


establish addressability 
EAREA set new save area 

get address of I 

get I 

get address of J 

IT=J+J 

return the new value of I 
EAREA+4 return 
14,12,12¢€13) 


m— CAA EI OK 
Wwe we he ew we tA 
ootrfloos-~ 
Sl FX RA 
NAR Me > 
ted et ed es 


> 
< 


. 


SAVEAREA 


Figure 86. Example of Pascal/VS as the caller to Assembler 
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13.2 PASCAL/VS AND FORTRAN 


Communication between FORTRAN and 
Pascal/V5 is accomplished by use of the 
MAIN directive CFORTRAN to Pascal/VS) 
and the FORTRAN directive (Pascal/VS to 
FORTRAN). | 


13.2.1 Pascal/VS as the Caller to 
FORTRAN : 


program FROMPSCL; | 
procedure SUMC(var I : INTEGER; 
| const J : INTEGER); 
FORTRAN; 


> INTEGER; 


0; 
>= 1 to 10 do 


SUMCI,J); | 
WRITELNC'The current running 
end; 
end . 


SUBROUTINE SUMCI,J) 
I=-.I+dJ 

RETURN 

END 


Figure 87. Example of Pascal/VS as the 


The FORTRAN directive instructs 
Pascal/VS to utilize exactly the same 
calling conventions employed by 
FORTRAN. This restricts the form of 
the parameter list, namely you may not 
pass a parameter by value; you may pass 
a parameter by var or by const. If you 
choose the latter machanism, the 
FORTRAN subprogram must not modify the 
parameter. 
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Data may be passed between FORTRAN and 
Pascal/VS through the parameter list or 
FORTRAN COMMON. If you choose to COM- 
MON specify the name of the COMMON 
block as a Pascal/VS def variable. 


(*Pascal program heading 


(XDefine two local variables 


(¥Sat running sum to zero 
(Xloop through ten values 


(Xcompute the next sum 
is ',1I:0); 


CXFROMPSCL 


caller to FORTRAN 


Execution errors that occur during the 
execution of the FORTRAN program will 
be handled by the Pascal runtime sup- 
port routines. If you desire to enable 
the error handling of FORTRAN” you 
should invoke "VSCOMR" at the appropri- 
ate entry point. Consult the VS 


FORTRAN Application Programming Guide 
$C€26-3985 for details 


13.2.2 FORTRAN as the Caller to Pas- 
cal/sVvs 
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Pascal/VS procedure to be called from FORTRAN program: 


SEGMENT SQUARE; 
procedure SQUARECVar X : REAL); 
MAIN; 


N; 
procedure SQUARE; 
begin 
X == X *® X 
end;. 


FORTRAN program that invokes Pascal procedure: 


AREAL = 4.0 
CALL SQUARECAREAL) 
PRINT 1, AREAL 
CALL SQUARECAREAL) 
PRINT 1, AREAL 
CALL SQUARECAREAL ) 
PRINT 1, AREAL 
CALL SQUARECAREAL) 
PRINT 1, AREAL 
FORMAT CF10.4) 
TERMINATE PASCAL ENVIRONMENT 
CALL PSCLHX(0) 
STOP 
END 


Figure 88. 


Pascal/VS permits a FORTRAN program to 
call a Pascal procedure as a 
subprogram. To do this you specify the 
Pascal procedure with the MAIN direc” 
tive. 


The first invocation of any procedure 
with a MAIN directive will cause Pascal 
to establish the appropriate environ- 
ment for its execution. Subsequent 


Example of FORTRAN as the caller to Pascal/VS 


calls will use the same environment 
that was set up on the first call. 


It is your responsibility to clean up 
the Pascal environment; this is done by 
invoking the procedure "PSCLHX". 


If Pascal is not the main program, then 
Pascal will not attempt to handle any 
errors during execution. 
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13.3 PASCAL/VS AND COBOL MAIN directive (COBOL to Pascal/VS) and 
the FORTRAN directive (Pascal/VS to 
COBOL). 

Communication between COBOL and 


Pascal/VS is accomplished by use of the 


13.3.1 Pascal/vS as the Caller to 
COBOL 


Pascal program that calls a COBOL subprogram: 


pregram FROMPSCL; (*¥Pascal program heading 
procedure SUMX(var I : INTEGER; 


const J =: INTEGER); 
FORTRAN; 


> INTEGER; (*¥Define two local variables 


(XSet running sum to zero 
1 to 10 do (X¥loop through ten values 


SUMXCI,J)3 (X¥compute the next sum 
oe ne current running is ',I:1);3 
ena; 
: CX¥FROMPSCL 


COBOL subprogram: 


IDENTIFICATION DIVISION. 
PROGRAM-ID. SUMX. 
ENVIRONMENT DIVISION. 
CONFIGURATION SECTION. 
SOURCE-COMPUTER. IBM-370. 
OBJECT-COMPUTER. IBM-370. 
DATA DIVISION. 
LINKAGE SECTION. 
77 I PIC IS 999999999 USAGE IS COMPUTATIONAL. 
77 J PIC IS 999999999 USAGE IS COMPUTATIONAL. 
PROCEDURE DIVISION USING I J. 
ADD J TO I. 
GOBACK. 


Figure 89. Example of Pascal/VS as the caller to COBOL 


The FORTRAN directive instructs routines. Pascal will not issue a call 
Pascal/VS to utilize exactly the same to ILBOSTPO0 (which sets up the COBOL 
calling conventions employed by FOR- error recovery). You may call this 
TRAN which is also equivalent to COBOL. routine if you would like the "STOP 
This restricts the form of the parame- RUN" statement of COBOL to treat the 
ter list, namely you may not pass a Pascal calling procedure as a main 
parameter by value; you may pass a entry point of a COBOL program. Con- 
parameter by var or by const. If you sult the OS/VS COBOL Compiler and 
choose the latter machanism, the COBOL Library Programmer's Guide, $C28-6483 
subprogram must not modify the parame- for details. 
ter. 

A COBOL program which 18S communicating 
Execution errors that occur during the with Pascal/VS must not use the dynamic 
execution of the COBOL program will be loading feature. 


handled by the Pascal runtime support 
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13.3.2 COBOL as the Caller to 
Pascalsvs 


TNL SN20-4445 (31 December 1981) to SH20-6162-1 


| Pascal procedure that is to be called from COBOL: 


SEGMENT SQUARE; | 
precedure SQUARECVar X : REAL); 


MAIN; 
procedure SQUARE; 
begin 
X ?= X * X 
end; 


COBOL program which calls a Pascal procedure: 


IDENTIFICATION DIVISION. 
PROGRAM-ID. TOS@. 
ENVIRONMENT DIVISION. 
CONFIGURATION SECTION. 
SOURCE-COMPUTER. IBM-370. 
OBJECT-COMPUTER. IBM-370. 
DATA DIVISION. 
WORKING-STORAGE SECTION. 


77 AREAL USAGE IS COMPUTATIONAL-2. 
77 AZERO USAGE IS COMPUTATIONAL PIC IS 999999999. 


PROCEDURE DIVISION. 
MOVE 2 TO AREAL. 
CALL "SQUARE™ USING AREAL. 
DISPLAY AREAL. 
MOVE 0 TO AZERO. 
CALL "PSCLHX" USING AZERO. 

| MOVE 0 TO RETURN-CODE. 

STOP RUN. 


Figure 90. 


Pascal/VS permits a COBOL program to 
call a Pascal procedure as a 
subprogram. To do this you specify the 
Pascal procedure with the MAIN direc-— 
tive. 


The first invocation of any procedure 
with a MAIN directive will cause Pascal 
to establish the appropriate environ- 
ment for its execution. Subsequent 


Example of COBOL as the caller to Pascal/VS 


calls will use the same environment 
that was created in the first call. 


It is your responsibility to clean up 
the Pascal environment, this 1s done by 
invoking the procedure "PSCLHX"™. Lf 
Pascal is not the main program, then 
Pascal will not attempt to handle any 
errors during execution. 
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13.4% PASCAL/VS AND PL/I 


Communication between PL/I and 
Pascal/VS is accomplished by use of the 
MAIN directive (PL/I to Pascal/VS) and 
the FORTRAN directive (Pascal/VS to 


13.4.1 
PL/I 


Pascal/VvS as tne Caller to 


PL/I). In addition, you may use the 
REENTRANT directive instead of the MAIN 
directive in order to develop a REEN- 
TRANT call to Pascal. 


Pascal program which calls a PL/I procedure: 


program FROMPSCL; 


procedure SUMCvar I : INTEGER; 
> INTEGER); 


const J 
FORTRAN; 


> INTEGER; 


:= 1 to 10 do 
SUMCI,J)3 


(*Pascal program heading 


(XDefine two local variables 


(*Set running sum to zero 
(Xloop through ten values 


(Xcompute the next sum 


WRITELNC'The current running sum is ',1I:0); 


end; 


CXFROMPSCL 


PL/I procedure that is invoked from Pascal: 


SUM: PROC (I,J) OPTIONSCFORTRAN) ; 
DCL (I,J) FIXED BINARYC31,0); 
I= I+ J; 
RETURN; 
END; 


Figure 91. 


The FFORTRAN directive instructs 
Pascal/VS to utilize exactly the same 
calling conventions employed by FOR- 
TRAN. PL/I will employ FORTRAN calling 
conventions if "FORTRAN" is specified 


in the OPTIONS clause. Consult the 
PL/I Programmer's Guide, 
$C33-00370CMS) and $C33-0006(0S) for 
details. 
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Example of Pascal/VS as the caller to PL/I 


The FORTRAN directive restricts the 
form of the parameter list, namely you 
may not pass a parameter by value; you 
may pass a parameter by either var or 
const. If you choose to latter mech- 
anism, the PL/1 procedure must not 
modify the parameter. 
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13.4.2 PL/I as the Caller to 
Pascal/Vs 


| Pascal procedure which is called from PL/I: 


SEGMENT SQUARE; 
procedure SQUARECvar X : REAL); 
MAIN; 
procedure SQUARE; 
begin 
X := XK * X 
end; 


| PL/I program which calls a Pascal procedure: 


TOSQ@: PROC OPTIONSCMAIN); 
DCL SQUARE ENTRY EXTERNAL; 
DCL PSCLHX ENTRYCFIXED BINARYC31,0)) EXTERNAL; 
DCL ZERO FIXED BINARY(C31,0); 
AREAL = 4.0; 
CALL SQUARECAREAL); 
PUT LISTCAREAL); 
CALL SQUARECAREAL); 
PUT LISTCAREAL); 
CALL SQUARECAREAL); 
PUT LISTCAREAL); 
CALL SQUARECAREAL); 
PUT LISTCAREAL); 
ZERO = 0; 
CALL PSCLHXCZERO); 
END; 


Figure 92. Example of PL/I as the caller to Pascal/VS 
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Pascal procedure which is called from a reentrant PL/I program: 


SEGMENT SQUARE; 
procedure SQUARECvar E 
REENTRANT; 
procedure SQUARE; 

begin 
X := X * X 
end; . 


INTEGER; 


var X = REAL); 


Reentrant PL/I program which invokes a Pascal procedure: 


TOSQ: PROC OPTIONS(MAIN REENTRANT); 
DCL SQUARE ENTRY EXTERNAL; 


DCL PSCLHX ENTRYCFIXED BINARYC31,0)3 EXTERNAL; 


DCL SAVE FIXED BINARY(31,0); 
AREAL = 4.0; 

SAVE = 0; 

CALL SQUARECSAVE, AREAL); 
PUT LISTCAREAL); 

CALL SQUARECSAVE,AREAL); 
PUT LISTCAREAL); . 
CALL SQUARECSAVE, AREAL); 
PUT LISTCAREAL); 

CALL SQUARECSAVE,AREAL); 
PUT LISTCAREAL); 

CALL PSCLHXCSAVE); 

END; 


Figure 93. Example of PL/I as the caller’ to Pascal/VS: Use of the REEN- 


TRANT directive 


Pascal/VS permits a PL/I program to 
call a Pascal procedure as a 
subprogram. To do this you specify the 
Pascal procedure with the MAIN direc- 
tive. 


The first invocation of any procedure 
that has a MAIN directive associated 
With it will cause Pascal to establish 
the appropriate environment for its 
execution. Subsequent calls will use 
the same environment that was created 
on the first call. 


A call to PSCLHX will dispose of the 
Pascal environment and release all mem- 
ory that it utilizes. 


The Pascal/VS run time support will 
not attempt to handle any errors during 
execution, unless the main program 1s 
in Pascal. 


The REENTRANT directive may be used in 
place of the MAIN directive if the pro- 
gram must be reentrant. In this case 
you must assist Pascal/VS in keeping 
track of the location of the Pascal/VS 
execution environment. The first 
parameter to a REENTRANT procedure must 
be an integer passed by var. The first 
call to the procedure must pass as its 


first parameter, a FIXED BINC€31,0) var- 


table which has been set to the value 
zero. Upon return from the first call, 
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this variable will contain an address 
which refers to the newly created Pas~ 
cal/VS environment. This vartable 
should be passed unaltered to subse- 
quent calls so that the Pascal/VS 
environment may be reentered. 


To terminate the Pascal/VS anvironment 
that was set up by the REENTRANT proce- 
dure, the "PSCLHX™ should be called 
with the variable that contains the 
address. See Figure 93 for an example. 


13.5 DATA TYPES COMPARISON 


Every language has numerous data types 
that are suited for the applications 
for which the language was intended. 
When passing data between programs 
written in different languages you must 
be aware which data types are the same 
and where there is no equivalent repre- 
sentation. 


Some data types in other languages have 
no direct equivalent in Pascal; 
however, you can often create new user 
data types in Pascal that will simulate 
some of the data types found in other 
languages. For example, you could 
define a record type that 1s identical 
to FORTRAN's COMPLEX type. 
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Figure 94 compares Pascal data types made. This means that beause FORTRAN 
with the equivalent in FORTRAN, COBOL stores its arrays in column-major order 
and PL/I. and Pascal stores its arrays in 
row-major order, a call between FORTRAN 
Pascal/VS makes no attempt to remap any and Pascal/VS procedures appears to 

| storage when an inter-language call is transpose the array. 


Data Type Equivalences Between Different Langauges 


CHAR CHARACTER 1 PIC X CHAR 
BOOLEAN LOGICALX1 na | FIXED BINARY(C1,90) 


INTEGER INTEGERX4 PIC 5999999999 FIXED BINARY(C31,0) 
| | USAGE IS COMP 


packed INTEGERX2 PIC $9999 USAGE FIXED BINARY(15,0) 
~32768..32767 IS COMPUTATIONAL 


packed na na 
0..65536 


packed -128..127 | na na FIXED BINARY(7,0) 
packed 0..255 na na na 
REAL REAL%8 COMPUTATIONAL-2 REAL FLOAT DEC(16) 
SHORTREAL REAL%4 COMPUTATIONAL-1 REAL FLOAT DEC(6) 
packed CHARACTERXn PIC X(n) or CHAR(n) 

arrayll..ni] of PIC X OCCURS n 

CHAR TIMES 

STRING(m) na CHAR(m) VARYING 
set of 0..n na BIT(Cnt1) 
a id na | POINTER 


array dimensioned OCCURS dimensioned 
variable variable 


record na record structure 


space na na AREA 


Figure 94. Data Type Comparisons 
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a 


14.0 RUNTIME ENVIRONMENT OVERVIEW 


149.1 PROGRAM INITIALIZATION 4. The main program 1s called. 

5. Upon return from the main program 
Upon invoking a Pascal/VS program, the any open files are closed. 
routine which 15 responsible for estab- 
lishing the Pascal/VS execution time 6. Acquired memory is freed. 
environment gains control and performs 
the following functions: 7. Control is returned to the system. 


1. Memory is obtained in which dynamic 
storage areas (DSA) are allocated 


and deallocated. 14.2 THE MAIN PROGRAM 
2. The Pascal Communication Work Area 
C(PCWA) 15 created and initialized. The matn program ts called as an ordi-— 
nary procedure from the environment 
3. An environment is set up to inter- setup routine CPASCALVS). The entry 
cept program interrupts (fixed point name of the main. program is 
point overflow, divide by zero, AMPXBEGN. 
etc.) 


14.3 EXECUTION SUPPORT ROUTINES 


Execution Support Routines 


Procedure name Action Performed 


AMPXBCLK Initializes the execution clock 

AMPXCHKS Checks a set for membership 

AMPXCLCK Interogate the execution clock 

AMPXCRTE Initialize the PCWA 

AMPXDATE DATETIME procedure 

AMPXDATI System date and time 

AMPXDBCB Obtains a procedures DBCB pointer 

AMPXECLK Ends the the execution clock 

AMPXGOTO Handles goto out of block 

AMPXGTOK Obtains a token. from user's execution parameters 
AMPXG12 Returns the contents of register 12 

AMPXG13 Returns the contents of register 13 

AMPXHALT HALT procedure 

AMPXINIT Initializes prior to execution of a Pascal program 
AMPXMAIN Interface for calling Pascal for other sNOuea=> 
AMPXMOVE Memory to memory move 

AMPXMUS Adds elements to a set 

AMPXNAME Obtains a procedures name 

AMPXPAD Memory fill memory with blanks 

AMPXPARM PARMS function 

AMPXRETC RETCODE procedure 

AMPXSETV Memory fill of with a value 

AMPXSPAR Intialize for PARMS function 

AMPXTERM Termination after execution of a Pascal program 
AMPXTOK TOKEN procedure 

AMPXTRAC TRACE procedure 

AMPZABND Abnormal termination routine 

AMPZCVD Convert to decimal 

CMS CMS procedure 

PASCALVS Main entry point for a Pascal/VS main program 


PSCLHX Terminates execution for interlanguage calls 


These routines provide miscellanaous tion and low level routines such as 
functions such as program initializa- fast memory move. 
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14.4 INPUT/OUTPUT ROUTINES 


Internal Input/Output Routines 


| Procedure name | Action Performed 


AMPXCLOS CLOSE procedure 

AMPXCOLS  COLS function 

AMPXGET GET procedure (TEXT files) 

AMPXGETR GET procedure : 

AMNPXOPEN RESET, REWRITE or UPDATE procedures 
AMPXOPNI1 Initializes a PCB prior to opening 
AMPXOPN2 Sets a PCB after opening 

AMPXPARS Analyze the optional string on RESET or REWRITE 
AMPXPCBC Closes a file (PCB) 

AMPXPDS | PDS support routines (PDSIN and PDSOUT) 
AMPXPUT PUT procedure 

AMPXRCHR Reads into a CHAR 

AMPXRINT Reads into an INTEGER 

AMPXRLIN Reads to end of line (TEXT file) 
AMPXRR Reads a REAL value 

AMPXRRDY Prepares a TEXT file for input 
AMPXRREC Reads one record (non TEXT files) 
AMPXRSTR Reads into a STRING 

AMPXRTXT Reads into an array of CHAR 
AMPXSEEK SEEK procedure 

AMPXSTAT Obtains the status of a file 
AMPXTIO Terminate I/0 processing 

AMPXWB Writes a BOOLEAN value 

AMPXWCHR Moves data to an I/0 output buffer 
AMPXWCHS Writes a CHAR to a TEXT file 
AMPXWINT Writes an INTEGER to a TEXT file 
AMPXWLIN Writes an end-of-line to a TEXT file 
AMPXWR Writes a REAL value 

AMPXWRDY Prepares a TEXT file for output 
AMPXWREC Writes one record (non TEXT files) 
AMPXWSTR Writes a string to a TEXT file 
—AMPXWTXT Writes an array of CHAR to a TEXT file 
AMPYCLOS System dependent QSAM close 
AMPYDFLT Applies System dependent defaults to a file 
AMPYGET System dependent get procedure 
AMPYOPEN System dependent QSAM open 

AMPYPAGE PAGE procedure 

AMPYPDS System dependent PDS interface 
AMPYPUT System dependent put procedure 
AMNPYSEEK System dependent seek procedure 
AMPZDAMR Issues a READ for a BDAM data set 
AMPZDAMW BDAM write procedure 

AMPZDCBC Close on an OS DCB 

AMPZDCBO Open on an OS DCB 

AMPZFIND Issues OS FIND 

AMPZGET Issues a QSAM GET 

AMPZPUT Issues a QSAM PUT 

AMPZPUTX Issues a QSAM PUTX | 
AMPZSAMR | Issues a READ for a BSAM data set 
AMPZSAMW BSAM write procedure . 

AMPZSTOW Issues'0S STOW 

AMPZTGET Issues a TGET (0S) or RDTERM CCMS) 


AMPZTPUT Issues a TPUT (05) or WRTERM CCMS) 


The I/0 operations (which appear as internal procedures ‘sithin the runtime 
calls to predefined procedures in environment. 
Pascal/VS) are implemented as calls to 
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14.5 ERROR HANDLING 


Error Handling 


Procedure name Action Performed 


AMPXCHKR Intercepts execution time checking errors 
AMPXDIAG Intercepts program exceptions 

AMPXERR General execution time error handler 
AMPXIOER I/0 error intercept routine 

ONERROR Default ONERROR procedure 


When the runtime environment detects an AMPXERR its the central routine, it ts 
error condition, it calls a routine to always called from the other routines: 
handle the error. There are several it then calls ONERROR, the user pro- 
different routines, one routine for vided error handler, and then completes 
each of class of error (e.g. I/0 error, the error handling. 

program exception etc). The routine 


14.6 CONVERSION ROUTINES 


| Conversion Routines 
Procedure name | Action Performed 


AMPTTOR Converts a REAL CEBCDIC) to REAL 

AMPXBTOS BOOLEAN to string conversion 

AMPXCTOS Converts a CHAR to a string 

AMPXGTOS Converts a string to a string 

AMPXITOS Converts an INTEGER to a string 

AMPXOTOS Converts an offset in a procedure to a statement number 
AMPXPACK PACK procedure 

AMPXRTOS Conversion for a REAL to a STRING 

AMPXSTOC Conversion for a STRING to a CHAR 

AMPXSTOG Conversion for a STRING to a STRING 
AMPXSTOI Conversion for a STRING to an INTEGER 
AMPXSTOR Converts a REAL CEBCDIC) to REAL 

AMPXSTOT Conversion for a STRING to an array of CHAR 
AMPXTTOS Appends an array of CHAR to a string 
AMPXUCAS Lower case to upper case conversion 
AMPXUNPK UNPACK procedure | 


ITOHS Integer to hexadecimal string conversion 


There are several places where doing I/0 on TEXT files and when you 
Pascal/VS must perform data conver- use READSTR and WRITESTR. 
sions. They take place when you are 
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14.7 MATHEMATICAL ROUTINES 


cal Routines | 


Mathemati 


Action Performed 


Procedure name 


AMPXATAN 
AMPXCOS 
AMPXEXP 
AMPXLN 


ARCTAN function 
COS function 

EXP function 

LN function 
RANDOM procedure 
SIN function 
SQRT 


AMPXRAND 
AMPXSIN 
AMPXSQRT 


The predefined functions are provided 
as Pascal/VS functions. The Pascal/V5S 
compiler changes the user provided name 


14.8 STRING ROUTINES 


RPAD RPAD procedure 


and proce- 
dures are provided as Pascal/VS func- 


The predefined functions 


tions and procedures. The Pascal/VS 
compiler changes the user provided name 
(e.g. SUBSTR) to an internal name (e.g. 
AMPXSUBS). Several routines are pro- 
vided in two forms: long and short. 
The short form is always used if possi- 
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(e.g. 
AMPXSIN). 


: String Routines 


AMPX$COM COMPRESS function Clong strings) 
AMPXSDEL DELETE function Clong strings) 
AMPXSLTR LTRIM procedure Clong strings) 
AMPXSSUB SUBSTR function Clong strings) 
AMPXSTRI TRIM function Clong strings) 
AMPXCAT Concatenates 2 to 93 strings 
AMPXCOMP COMPRESS function Cshort strings) 
AMPXDELE DELETE function (short strings) 
AMPXINDX INDEX procedure 

AMPXLTRI LTRIM procedure (short strings) 
AMPXSUBS SUBSTR function Cshort strings) 
AMPXTRIM TRIM function Cshort strings) 
LPAD LPAD procedure 


SIN) to an internal name (e.g. 


ble. In order to use the short form 
the Pascal/VS compiler must determine 
that the resulting string will be less 
than 1000 bytes’ long. If the size 
can't be limited by compiler analysis, 
the compiler uses the long form which 
passes the results through the heap. 


14.9 MEMORY MANAGEMENT ROUTINES 


Memory Management Routines 


Action Performed 


Procedure name 


AMPXALOC 
AMPXDISP 
AMPXFREE 
AMPXIDSP 
AMPXINEW 
AMPXMARK 
AMPXNEW 

AMPXRLSE 
AMPXTMEM 


DISPOSE procedure 


MARK procedure 
NEW procedure 
RELEASE procedure 


The NEW procedure generates a call to 
the internal procedure AMPXNENW. This 
procedure allocates storage within a 
heap. If a heap has not yet been cre- 
ated, NEW will obtain memory from the 
operating system to create a heap. 


The DISPOSE procedure aqenerates a call 
to the procedure AMPXDISP. This proce- 
dure deallocates the heap storage 
acquired by a preceding call to 
AMPXNEW. 


The MARK procedure generates a call to 
the procedure AMPXMARK. This procedure 
creates a new heap from which subse- 


Termination processing for memory management 


Basic storage allocator 


Basic storage de-allocator 
Dispose for the I/70 routines 
New for the I/0 routines 


quent calls to AMPXNEW will obtain 


storage. 


The RELEASE procedure generates a call 
to the procedure AMPXRLSE. This proce-~ 
dure frees a heap that was previously 
created via the AMPXMARK procedure. 
Subsequent calls to AMPXNEW will obtain 
storage from the heap which was active 
prior to the call of AMPXMARK. 


The I70 routines have access to a sepa- 
rate heap 1s controlled with the rou- 
tines AMPXINEW and AMPXIDSP. Thus, I/0 
buffers and file control blocks are in 
a distinct area from the users area. 
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| Release 2.1 of Pascal/VS has several 


differences from ‘standard’ Pascal. 
Most of the deviations are in the form 
of extensions to Pascal in those areas 
where Pascal does not have suitable 
facilities. 


15.1 PASCAL/VS RESTRICTIONS 


Pascal/VS contains the following 
restrictions that are not in standard 
Pascal. 


Confcormant array parameters 
The conformant array mechanism for 
passing array variables to rou- 
tines 1S not supported. 


Note: In Release 2.0, procedures which 
are passed as parameters were 
restricted to the outer most nesting 
level. In Release 2.1, this restric— 
tion was removed. 


15.2 MODIFIED FEATURES 


Pascal/VS has modified the meaning of a 
negative length field qualifier on an 
operand within the WRITE statement. 


15.3 NEW FEATURES 


Pascal/VS provides a number of exten- 
sions to Pascal. 


° Separately compilable modules are 
supported with the SEGMENT defi- 
nition. 

° ‘internal static" data is = sup- 


ported by means of the static dec- 
larations. 


@ "external static’ data 1S sup- 
ported by means of the def and ref 
declarations. 


@ Static and external data may be 
initialized at compile time by 
means of the value declaration. 


e Constant expressions are permitted 
wherever a constant 1s permitted 
except as the lower bound of a sub- 
range type definition. 


° The keyword "range™ may be prefixed 
to a subrange type definition to 
permit the lower value to be a con- 
stant expression. 
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15.0 COMPARISON TO PASCAL 


A varying length character string 
is provided. It is called STRING. 
The maximum length of a STRING is 
32767 characters. 


The STRING operators and functions 
are concatenate, LENGTH, STR, 
SUBSTR, DELETE, TRIM, LTRIM, COM- 
PRESS and INDEX. 


A new predefined type, STRINGPTR, 
has been added that permits you to 
allocate strings with the NEW pro- 
cedure whose maximum size 18S not 
defined until the invocation of 
NEW. 


A new parameter passing mechanism 
is provided that allows strings to 
be passed into a procedure or func~ 
tion without requiring you to spec 
ify the maximum size of the string 
on the formal parameter. 


The MAXLENGTH function returns the 
maximum length that a string vari- 
able can assume. 


Calls to FORTRAN subroutines and 
functions are provided for. 


The MAIN directive permits you to 
define a procedure that may be 
invoked from a non Pascal environ- 
ment. A procedure that uses this 
directive is not reentrant. 


The REENTRANT directive permits 
you to define a procedure that may 
be invoked from a non Pascal envi- 
ronment. A procedure that uses 
this directive is reentrant. 


Files may be explicitly closed by 
means of the CLOSE procedure. 


The DDNAME to be associated with a 
file may be determined at execution 
time with the optional == string 
parameter on the procedures: 
RESET, REWRITE, UPDATE, TERMIN, 
TERMOUT, PDSIN and PDSOUT. 


The parameters of the text file 
READ procedure may be 
length-qualified. 


Files may be opened for updating 
with the UPDATE procedure. 


Input files may be opened as "IN- 
TERACTIVE™ so that I/0 may be done 
conveniently from a terminal. 


Files may be opened for terminal 
input CTERMIN) and terminal output 
CTERMOUT) so that I/70 may take 
place directly to the user's termi- 
nal Without going through the 
DDname interface. 


Comparison to Pascal 127 


TNL SN20-4445 (31 December 1981) to SH20-6162-1 


128 


Files may be accessed based on rel- 
ative record number Crandom 
access). 


The PDSIN procedure opens a parti- 
tioned dataset Cor MACLIB) for 
input. The PDSOUT procedure opens 
a partitioned dataset (or MACLIB) 
for output. A string parameter is 
required to set the member name. 


The space structure is provided for 
processing packed data. 


Records may be packed to the byte. 


The tagfield in the variant part of 
a record may be anywhere within the 
fixed part of the record. 


Fields of a record may be unnamed. 


Tag specifications on record vari- 
ants may be ranges (x..y) 


Integers may be declared to occupy 
bytes and halfwords in addition to 
full words, as a result of the 
packed qualifier. 


Sets permit the operations of set 
complement and set exclusive 
union. ) 


A function may return any type of 
data except a fille. 


The operators "|", "&", '&&" and 
'-" may be applied to data of type 
integer. When applied to integers, 
the operators act on a bit by bit 
basis. Shift operations on data 
are also provided. 


Integer constants may be expressed 
In hexadecimal digits. 


Real constants (floating point) 


may be expressed in hexadecimal 
digits. 
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string constants may be expressed 
in hexadecimal digits. 


The “ZINCLUDE facility provides a 
means to include source code from a 
library. 


A parameter passing mechanism 
(const) has been defined which 
guarantees that the actual parame- 
ter 31s not modified yet does not 
require the copy overhead of a pass 
by value mechanism. 


leave, continue and return are new 
statements that permit a branching 
capability without using a goto. 


Labels may be either a numeric val- 
ue or an identifier. | 


case statements may have a range 
notation on the component state- 
ments. 


An otherwise clause is provided for 
the case statement. 


The variant labels in records may 
be written with a range notation. 


The assert statement permits run- 
time checks to be compiled into the 
program. 


interface 
HALT, 


The following system 
procedures are supported: 
CLOCK, and DATETIME. 


Constants may be of a structured 
type (namely arrays and records). 


To control the compiler listing, 
the following listing directives 
are supported: %PAGE, %SKIP, and 
%TITLE. 


16.1 SYSTEM DESCRIPTION 


The Pascal/VS compiler runs on the IBM 
System/370 to produce object code for 
the same system. System/370 includes 
all models of the 370, 303x, and 43xx 
computers providing one of the follow- 
Ing operating environments: 


° VM/CMS 
° OS/VS2 TSO 
e OS/VS2 Batch 


16.2 MEMORY REQUIREMENTS 


Under CMS, Pascal/VS requires a virtual 
machine of at least 768K to compile a 
program. Execution of a compiled pro- 
gram can be performed in a 256K CMS 
machine. 


The compiler requires a minimum region 
size of 512K under VS2 (MVS). A com- 
piled and link-edited program can exe- 
cute ina 128K region. 


The compiler is reentrant and may be 
loaded in aeshared area in MVS or 
mapped to a shared segment in CMS. 


16.3 IMPLEMENTATION RESTRICTIONS AND 
DEPENDENCIES 


Boolean expressions 

Pascal/VS "short circuits” boo- 
lean expressions involving the 
and and or operators. For exam- 
ple, given that A and B are boo- 
lean expressions and X 185 a 
boolean variable, the evaluation 
of 


X ?= A or Bor c 


would be performed as 


if A then 
X := TRUE 
else 
if B then 
X := TRUE 
else 
X 2= ¢€ 


The evaluation of 


X := A and B and C 


16 
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16.0 IMPLEMENTATION SPECIFICATIONS 


would be performed as 


if -A then 
X := FALSE 
else 
if -B then 
X := FALSE 
else 
X := C 


See the section entitled "Boole- 
an Expressions" in the Pascal/VS 


Language Reference Manual “(for 
more details. 


Floating-point 
Some commonly required charac~— 
teristics of System/370 float- 
ing-point arithmetic are shown 
in Figure 95 on page 130. 


Identifiers 
Pascal/VS permits identifiers of 
up to 16 characters in length. 
If the compiler encounters a lon- 
ger name, it will ignore that 
portton of the name longer than 
16 characters. 


Names of external variables and 
external routines must be unique 
Within the first 8 characters. 
Such names may not contain an 
underscore '_' within the first 8 
characters. 


Integers 
The largest integer that may be 
represented is 2147483647.1°% 
This is the value of the prede- 
fined constant MAXINT. 


The most negative integer that 
may be represented 1s 
-2147483648. This is the value 
of the predefined constant MIN- 
INT. 


Routine nesting 
Routines may be nested up to 
eight levels deep. 


Routines passed as parameters 
The following standard routines 
may not be passed as parameters 
to another routine: 


ABS, CHR, CLOSE, DISPOSE, EOF, 
EOLN, FLOAT, GET, HBOUND, HIGH- 
EST, LBOUND, LENGTH, LOWEST, 
MARK, MAX, NEW, ODD, ORD, PACK, 
PAGE, PDSIN, PDSOUT, PRED, PUT, 
READ, READLN, READSTR, RELEASE, 
RESET, REWRITE, ROUND, SIZEOF, 
SQ@R, STR, SUCC, TERMIN, TERMOUT, 
TRUNC, UNPACK, UPDATE, WRITE, 
WRITELN, WRITESTR 


This is the highest signed value that may be represented ina 32 bit word. 
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Floating-point Characteristics 
Characteristic Decimal approximation Exact Representation! | 


7.23700557733226E+75 '7FFFFFFFFFFFFFFF'XR 
5.39760534693403E-79 *0010000000000000'XR 
1.38777878078145E-17 °3310000000000000'XR 


Maxreal? 


Minreal® 


Ensilon* 


The syntax "...'XR is the way hexadecimal floating-point numbers are 
represented in Pascal/VS. See the section entitled "Constants" in the 
Pascal/VS Language Reference Manual. 


Maxreal is the largest finite floating-point number that may be 
represented. 


Minreal is the smallest positive finite floating-point number that 
may be represented. 


Epsilon is the smallest positive floating-point number such that the 


following condition holds: 
1.0t+epsilon > 1.0 


This value is often needed in numerical computations involving con- 
verging series. 


Figure 95. Characteristics of System/370 floating point arithmetic 


A FORTRAN function or subroutine ° ORDCad >= 0 
may not be passed as a parameter 
to a Pascal/VS routine. e ORD(b) <= 255 
Sets Size limitations 
| Given a set type of the form The size of a single procedure or 
function must not exceed 8192 
set of a..b bytes of generated code. 8192 
bytes represent approximately 
where "at and "b"™ express the 400 Pascal statements, depending 
lower and upper bounds of the on the complexity of the state- 
base scalar type, the following ments. The compiler will 
conditions must hold: generate a diagnostic if this 


limit is reached. 
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17.0 PASCAL/VS MESSAGES 


<1 


7.1 PASCAL/VS COMPILER MESSAGES 


Message and Explanation 


Not yet implemented 
The indicated construct 15 not currently implemented. 


Identifier expected 


Source continues after end of program 


The compiler detected text after the logical end of the program. 
This error is often caused by mismatched begin/end brackets. 


3 “EHMD'’? expected 


Character in quoted string is not displayable 


es) 


The indicated character within a quoted string does not correspond 
to a valid displayable EBCDIC character. If the string is printed 
on a device, the character may be interpreted as a control character 
that could cause unpredictable results. 


If acontrol character 1s intended, then the string should be 
represented in hexadecimal form. 


Symbol invalid or out of context 


The indicated symbol is not part of the syntax of the construct 
being scanned. The symbol should be deleted or changed. 


EOF before logical end of program 
The compiler came to the end of the source program before the log- 


ical end of the program was detected. This error 1s often caused by 
mismatched begin/end brackets. 


7 "BEGIN’’ expected 


semicolon ';"* expected 


ll Ambiguous procedure/function specification 


The routine directive EXTERNAL or FORTRAN was applied to the indi- 
cated routine declaration that was also declared as an ENTRY 
routine. Such a combination 15 contradictory. 


12 Multiply declared label 


The indicated label has been previously declared within the sur- 
rounding routine. 


13 Label identifier expected 
Within the indicated label definition, aie label identifier i415 


missing. A label identifier is either an alphanumeric identifier or 
an integer constant within the range 0 to 9999. 


i 
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| warded procedure. 


The characters '$" and * * are not valid in standard Pascal 


This 15 a warning message that can occur when the LANGLVLCOSTANDARD) 
compile option is specified. An identifier is being declared which 


has a name containing characters which are not recognizable in 


| YWstandard™ Pascal. 


"=" expected 


Identifier required to be a type in tag field specification 


Within a record definition, a tag field is being declared, but the 
indicated identifier which 1s supposed to represent the tag field's 


| type was not declared as a type. 


73" expected 


RCS ACT ARERR NSO: 


Parameters on forwarded routine not necessary 


A routine declaration which has been previously declared as FORWARD 
or EXTERNAL must not specify any formal parameters. Any formal 
parameters are assumed to have been specified previously on the 
associated declaration that contained the FORWARD/EXTERNAL direc- 
tive. 


(aye LORRY SLE PANS HON RENEE TTD SARMIENTO SE RD CAO AEE A SIN OES ALO PECL AEM AEOLIAN TREES. ATH SONNET 


Files passed by value not permitted 

The indicated formal value parameter is of a file type. A file var- 
iable may be passed to a routine only by the var or const mechanism; 
never by value. 

String Literal constant is too long: exceeds 3190 


Because of an implementation restriction, a string constant may not 


| exceed 3190 characters in length. 


NOR sare 


POORER TN DA EERO 


*)" expected 


ra 


Forwarded routine class conflict 


A procedure declaration was previously declared as a forwarded func— 
tion; or ae function declaration was previously declared as a for- 


aan i a ee a rae 


Routine nesting exceeds maximum 


The indicated procedure or function declaration exceeds the maximum 
allowed nesting level for routines. Routines may be nested to a 


| maximum depth of 8. 


Too many nested WITH statements or RECORD definitions 


This error occurs when to many lexical scopes are active. This can 


| occur is multiply nested With statements and record definitions. 


Type not needed on forwarded function 


A function declaration which has been previously FORWARDed must not 
specify a return type. The type specification 1s assumed to have 
been specified previously on the associated declaration that con- 


| tained the FORWARD directive. 


Missing type specification for function 


| The indicated function header did not specify a return type. 


{PROP DAR LR DRA OIDSE YIN NRE ERY LTTE ARI TE 28 IT 
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PROCEDURE/FUNCTION previously FORWARDed 


The indicated routine declaration that contains the FORWARD or 
EXTERNAL directive was already previously forwarded. 


Additional errors in this line were not diagnosed 


The indicated construct contained more errors, but were not diag- 
nosed due to space considerations. 


Illegal hexadecimal or binary digit 


An invalid hexadecimal digit was detected within a hexadecimal con- 
stant specification of the form 


Vee os Ye. ange ORG or vst. XR; 


or, an invalid binary digit was detected within a binary constant 
specification of the form 


Voge ae ee 
The following characters are valid hexadecimal digits: 


0, 1> 2» 3> 4, 5, 6». 7» 8, 9, A, B, C> D, E, F, 
a, b, c, d», ae, Ff 


The following characters are valid binary digits: 

0, 1 
Unidentifiable character 
The indicated character is not recognized as a valid token. 
Digit expected 
A decimal digit was expected but missing at the indicated location. 
Real constant has too many digits 
The indicated floating point constant contains more digits than the 
compiler allows for in scanning. If this error should occur, please 
notify the compiler maintenance group at IBM. 


Integer constant too large 


The indicated integer constant is not within the range -2147483647 
to 2147483647. 


End of string not seen 


A string constant may not cross a line boundary. This error is 
often the result of mismatched quotes. 


If a string constant 1s too large to fit on one line, it must be 
broken up into multiple strings and concatenated with the |] opera- 
tor. CConcatenation of string constants is performed at compile 
time). 


Hexadecimal integer constant may not exceed 8 digits 


The indicated hexadecimal constant exceeds the maximum allowed num- 
ber of digits. 


Char string its too large 
The indicated string constant exceeds 255 characters, which is the 


implementation limit. This may happen when multiple string con- 
stants are concatenated. 
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Standard routines not permitted as parameters 


| Standard routines which generate in line code may not be passed as 
| parameters to other routines. The following is a list of such rou- 
tines: | 


ABS, CHR, CLOSE, DISPOSE, EOF, EOLN, FLOAT, GET, HBOUND, 
HIGHEST, INTERACTIVE, LBOUND, LENGTH, LOWEST, MARK, MAX, NEW, 
ODD, ORD, PACK, PAGE, PRED, PUT, READ, READLN, RELEASE, RESET, 
REWRITE, ROUND, SIZEOF, SQR, STR, SUCC, TRUNC, UNPACK, WRITE, 
WRITELN, | | | 

PDSIN, PDSOUT, READSTR, TERMIN, TERMOUT, UPDATE, WRITESTR 


Variable must be of type file 
The indicated variable is required to be of a file type. 
Must be of type TEXT 


The indicated variable is required to have been declared with the 
predefined type TEXT. 


Required parameters are missing 


The indicated READ or WRITE statement contains no parameter from 
which to reference data. 


Comma ‘'," expected 


User defined scalars not permitted 


Expressions which are of a user defined enumerated type may not be 
directly read from or written to a text file. 


Cperand of READ/WRITE not of a valid type 


Any parameter passed to the procedures READ or WRITE (text file 
case) must be compatible with one of the following types: 

~ INTEGER 

~ REAL 

- SHORTREAL 

~- CHAR 

- BOOLEAN 

~ STRING 

- packed arrayli..nj] of CHAR 

where n is a positive integer constant. 


Field length must be integer 


The indicated length qualifier expression in a READ or WRITE state- 
ment 15 not of type integer. Any length specification within a 
text-file READ/WRITE must be of type integer. 


Set contains constant member(s) which are out of range 


The indicated set constant contains members which are not valid for 
the set variable to which the constant is being assigned. 


For example, 


var S : set of 10..20; 

begin | | 

: >= [1,2]; (C¥<== this statement would produce error 45x) 
ena; ; 


This error may also occur when a set constant is being passed as a 
parameter. 
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end field length applicable only to REAL data 


In the procedure WRITE (text file case), only expressions of type 
REAL are permitted to have two length field qualifications. 


Array reference contains tco many subscripts 


An array variable of dimension ‘'n' is being subscripted with more 
than 'n* number of subscripts. 


Associated variable of subscript must be of an array type 


An attempt is being made to subscript a variable which was not 
declared as an array. 


Expression must be of a simple scalar type 


The indicated expression should be of a simple scalar type within 
the context in which it 185 being used. 


No max length specified on STRING type - 255 assumed 


A type definition of the form "STRING" does not contain a length 
specification to indicate the maximum length of the string variable. 
255 is the default length. 


Variable must be of a pointer type 


The indicated variable is being used as a pointer; however, the var- 
liable was not declared as being of a pointer type. 


corresponding variant declaration missing 


Within a call to the procedure NEW or to the function SIZEOF, the 
indicated tag field specification fails to correspond to a variant 
within the associated record variable; or, the associated variable 
was not of a record type. 


Notify compiler maintenance group 


If this error should occur, then notify the Pascal/VS compiler main- 
tenance group at IBM. This is a compiler error. 


Expression must be numeric 


Expressions which are prefixed with a sign C't' or '-') must be of a 
type that is compatible with INTEGER or REAL. This also applies to 
expressions which are operands of such predefined functions as ABS 
and SQR. | 


Expression must be of type real 
The indicated call to ROUND or TRUNC has an argument (Cactual parame- 


ter) of an incorrect type. The predefined functions TRUNC and ROUND 
require an expression of type REAL as a parameter. 


Expression must be of type integer 


The indicated expression must be of a type that is compatible with 
INTEGER. 


Parameter type does not match formal parameter 

Within a procedure or function call, an expression or variable 1s 
being passed as an actual parameter which is of a type that iS not 
compatible with the corresponding formal parameter. 


Expression must be a variable 


An erroneous) attempt was made to pass a non-variable as an actual 
parameter to a routine which expects a pass-by-Vvar parameter. 
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Number of parameters does not agree 


Within a procedure or function call, the number of parameters being 
passed does not correspond with the number required. 


"(* expected 


Constant expected 


Type specification expected 


At the place indicated, a type definition is expected but is 
missing. | 


~-* expected 


Expression" s type is incorrect or incompatible within context 

This error 1s caused by a number of reasons: 
A unary or binary operator 1s being applied to an expression 
Which is of a type that is not valid for the operator. 
Two expressions being joined by a binary operator are of incom- 
patible types. 
The parameters of the MIN/MAX functions are not of consistent 
types. | 
Members of a set constructor have inconsistent types. 


Subrange lower bound > upper bound 


Assignment to ptr qualified variant record invalid 


The indicated statement attempts to assign to the whole of a pointer 
qualified record with variant fields. Such an assignment is not 
valid under Pascal/VS. This restriction is necessary because the 
pointer qualified record may have been allocated with a size that is 
specific to its active variant. 


Example of violation: 


type 
R = record 
case BOOLEAN of 
TRUE: CC: CHAR); 
FALSE: CA: ALPHA) 


.s 

NEWCP, TRUE); 

i? >= RR C¥<===tnvalid assignment*) 
en 


Real type not valid here 


The indicated expression is of type REAL. An expression of this 
type 15 not valid within the associated context. 
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Tag constant does not match tag field type 


Within a record definition, a variant tag is being defined which is 
of a type that 15 not compatible with the corresponding tag field 
type. 


Within a call to NEW or SIZEOF, a tag value 15 specified which 1s of 
a type that 15 not compatible with the corresponding tag field type 
of an associated record variable. 


Duplicate variant field 


Within a record definition, a variant tag is being defined more than 
once. 


Not applicable to "PACKED" qualifier 


The indicated type definition was qualified with the word "packed". 
Such a qualification within the associated context i585 not valid. 


"CC" expected 


cee vartaeegenecnedeanemmsentarenenecgte et eaataetrennteaent 


Array has too many elements 


The length of the tadicated array definition exceeds the address- 
abrlity of the computer. 


"]" expected 
File of files not supported 


Illegal reference of function name 


The indicated identifier 31s the name of a function. It 15 being 
used In away that 1s incorrect. 


Subscript type not compatible with index type 


The indicated subscript expression 15 not of a type that is compat- 
ible with the declared subscript type for the array. 


A ION NA TERT RAI C8 


A variable associated with the indicated statement or expression 15 
required to be of a record type according to context; but such 15s 
not the case. 


Record field qualifier not defined 
The tndicated record field does not exist for the associated record. 


Notify compiler maintenance group 


If this error should occur, then notify the Pascal/VS compiler main- 
tenance group at IBM. This is a compiler error. 


Associated variable must be of a pointer or file type 


The indicated arrow qualified variable is not of a pointer or file 
type. 


Set element out of range 


The indicated set member of a set constructor exceeds the allowed 
range for the set. 
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Expression must be of a set type 


0S 
rs) 


The indicated expression is required to be of a set type in the con- 
text in which it is being used. | 


Must be positive integer constant 
The indicated expression fails to evaluate to a positive tnteger 
constant, which is required in the context in which it is being 


used. 


LEAVE/CONTINUE not within loop 


The indicated leave or continue statement fails to reside within a 
loop construct. 


"s=" expected 


TEXT files may not be updated 


An attempt was made to open a text file for updating. Only record 
files may be updated. 


Label not declared 


The indicated label did not appear ina label declaration. 


YTHEN"™ expected 


Redundant case alternative 


The indicated case statement label is equal to a previous label 
within the same case statement. 


94 Required length expression missing for dynamic string allocation 
A pointer variable declared with the type STRINGPTR is being allo- 


ee with the NEW procedure, but the required length expression 15 
missing. 


“UNTIL” expected 
"no" expected 


FOR-loop index must be simple local variable 


A for-loop variable must be declared as a simple automatic (var) 
variable, local to the routine in which the for loop resides. The 
indicated for-loop variable did not meet this criteria. 


"TO" expected 


Label previously defined 


The indicated label identifier was previously defined within the 


associated routine. 


Notify compiler maintenance group 


If this error should occur, then notify the Pascal/VS compiler main- 
tenance group at IBM. This 1s a compiler error. 


co} 6 00 
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101 Notify compiler maintenance group 


If this error should occur, then notify the Pascal/VS compiler main- 
tenance group at IBM. This is a compiler error. 
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Max length of string variable does not match formal parameter 


A string variable is being passed to a procedure "by var™ and the 
corresponding formal parameter is declared with an explicit length. 
This error occurs when the declared length of the variable being 
passed does not match that of the formal parameter. 


Example: 


procedure XYZ(var S: STRINGC100)); EXTERNAL; 
var 7: STRINGC50); 
begin 


XYZ(T); CXERROR: declared length of T does *) 
( X not match that of parameter S X) 


end 
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Notify compiler maintenance group 


If this error should occur, then notify the Pascal/VS compiler main- 
tenance group at IBM. This is a compiler error. 


Expression must be of type BOOLEAN 

The indicated expression which is associated with an if, assert, 
while, or repeat statement is required to represent a condition. 
Conditional expressions are of type BOOLEAN. The indicated expres- 


sion failed to meet this criteria. 
Constant out of range 


The indicated constant expression evaluated to a value which is out- 
side the required range of its context. 


105 Identifier Was previously declared 


The indicated identifier within a declaration was previously 
declared within the same lexical scope. 


106 Undeclared identifier 
The indicated identifier being referenced was not declared. 
107 Identifier is not in proper context 


The indicated identifier is being used in a way that is not consist~- 
ent with how it was declared. 


Notify compiler maintenance group 


If this error should occur, then notify the Pascal/VS comptler main~ 
tenance group at IBM. This is a compiler error. 


Case label tag of Wrong type 


The value of the indicated case statement ltabel is not of a type 
that is conformable to the case statement indexing expression. 


Loop Will never execute 


The indicated for loop will not execute at runtime. The compiler has 
determined that the terminating condition for the loop is uncondi- 
tionally true. 


111 Loop range exceeds range of index 
The indexing variable used for the indicated for loop was declared 


with a subrange that does not include the range indicated by the 
initial and final index values. 


112 | "PROGRAM' header missing 
Pending comment not terminated 
| | A comment starting symbol was detected within a pending comment. 
| | Percent reggie statement not found = | 
| A '%" symbol was detected, but with no identifier following. 
115 | Percent myn identifier not recognized | 


A identifier following the '%' symbol is not recognized as a valid 
compiler directive. 


Pascal/VS Messages 139 


TNL SN20-4445 (31 December 1981) to SH20-6162-1 


116 | "ON" or "OFF" expected 


117 Unrecognizable cption in "%CHECK" 


Magnitude of floating point constant too large or too small 
The indicated floating point constant has a magnitude that is out- 
side the range of the IBM/370 double precision representation. The 
largest floating point magnitude that can be represented is 


7.23700557733226E75 


The smallest is 


5.39760534693403E-79 


First paramater of READSTR/RRITESTR must be of type STRING 


String constant requires truncation 


The indicated string constant, which is being assigned to a variable 
or being passed to a routine, requires truncation because of its 
excessive length. Implicit truncation of strings is not permitted. 


Declaration out of order: LABEL, CONST» TYPE, VAR, routine 


This is @ warning message that may be produced when the 
LANGLVLCSTANDARD) compiler option is specified. One or more declara- 
tion constructs are not in the order required by standard Pascal. 
Standard Pascal requires identifiers to be declared in the following 
order: 

Labels 

Constants (const) 

Types (type) 

Variables (var) 
Routines (procedures function) 


VOTHERWISE clause Nithout as sociated CASE statement 


The indicated othernise statement is not within the context ofa 
case statement. 


~ 
Naximum string length exceeded 
| The indicated expression produced a varying length string which 
| axceeds 32767 characters in length. 32767 is the maximum allowed 
| length for a varying length string. 3 
Construct or operation is not in standard Pascal 


This is warning message that may be produced when the 


LANGLVL (STANDARD) compiler option is specified. The indicated lan- 
guage construct or arithmetic operation 18S not supported in "stand~ 
ard” Pascal, but is a Pascal/VS language extension. 


Real to integer conversion not valid 


The indicated expression is of type real, but according to its con- 
text, it is required to be of type integer. Implicit real to inte- 
ger conversion is not performed. 


Types not conformable in assianment 


The indicated assignment statement attempts to assign an expression 
of a particular type to a variable of an incompatible type. 


- —werwme @ 6 


File variable assignment not permitted 


The left side of the indicated assignment statement is a variable of 
a file type. Assignment to file variables is not permitted. 
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128 Not compile-time computable 


The indicated expression fails to be a constant expression that can 
be evaluated at compile time. 


129 Assignnent to “CONST™ parameter invalid 


The indicated variable declared as a formal const parameter within a 
particular routine may not be modified by an assignment. 


130 Assignment to FOR-loop index invalid 


The indicated variable that is being used as a for loop index may 
not be modified by an assignment within the for loop statement. 


131 Passing "CONST™ parameter by VAR invalid 


The indicated variable declared as a formal const parameter may not 
be modified by being passed as an actual Var parameter to a routine. 


132 | Passing FOR-loop index by VAR invalid — 


The indicated variable that is being used as a for loop index may 
not be modified by being passed as an actual var parameter to a rou- 


tine. 


133 Refer-back tagfield must not be typed 
The indicated tag field specification within a record definition was 
found to reference a previous field within the record. Such 
refer-back references may not contain a type reference. 

137 Passing packed record field by VAR not valid | 
This is a warning message that may be produced when the 
LANGLVLCSTANDARD) compiler option is specified. The indicated field 
of a packed record is being passed as an actual Vaf parameter to a 
routine. Passing fields of packed records as Var parameters is not 
valid in standard Pascal. 

138 Passing SPACE component by VAR not valid 
This is warning message that may be produced when the 
LANGLVL (STANDARD) compiler option jis specified. Standard Pascal 
requires that actual var parameters be properly aligned which is not 
necessarily the case with a Space component. The indicated parame- 
ter is a component of a SPace variable which is being passed as a 
Var parameter. 

139 Passing packed array element by VAR not valid 
This 75 a warning message that may be produced when the 
LANGLVLCSTANDARD) compiler option is specified. The indicated sub- 
scripted variable is being passed as an actual Var parameter toa 
routine. The variable being subscripted is a packed array. Passing 
elements of packed arrays as Var parameters is not valid in standard 
Pascal. . 

140 scalar PACKing does not match corresponding VAR parameter 
The indicated variable that is being passed as a Var parameter is of 
a compatible type, but has a different length than the corresponding 
formal parameter. This was caused by one being packed and the other 
unpacked. 

141 Symbol not recognizable in standard Pascal 


This is a warning message that may result when the LANGLVLCSTANDARD) 
compiler option is specified. The indicated symbol Cor operator) is 
not supported in "standard" Pascal. The symbol is part of a con- 
struct which is a Pascal/VS language extension. 
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142 


Variable must be an array variable 


‘The indicated variable is required to be of an array type, but such 
is not the case. 


Offset qualified field not on proper boundary 


The indicated field in a record definition is qualified with an off- 
set which is not consistant with the boundary requirement of the 
field's type. 


Offset qualification value is too small 


The indicated field in a record definition is qualified with an off- 
set which causes an overlap with a previous field within the record. 


Type must be CHAR or PACKED ARRAY OF CHAR 


The indicated expression 1s required by its context to be 
CHAR or packed array(ll..nJ] of CHAR. 


Variables of type POINTER are not permitted 


The special type 'POINTER' may only be applied to a formal parameter 
of a routine. 


Identifier was not declared as function 


The indicated identifier is used as though it is a function name, 
but 1s not declared as such. , 


Missing period *." assumed 


Not a valid comparison operation 


The indicated expression performs a comparison operation on two 


entities for which such comparison is not allowed. Except for 
strings, variables of structured types may not be directly compared 
with each other. The only valid comparison operators for sets are 
wat, t<>!', t<=!, and Y>=! . 


Entry routines must be at the outermost nesting level 


A routine which is to be called from another module is nested within 
another routine which is not permitted. Such routines must be 
declared at the outermost nesting level. 


Fixed Point overflow or divide-by-zero 


4 
An integer expression consisting of constant operands causes a pro- 
gram error to occur when it is evaluated. : 

expression (a scalar) does not overlap the declared range of the 


target. For example, the following assignment would cause this 
error to occur: 


var I: 1..10; 
1 


Checking error Will inevitably occur at execution time 

This error indicates that the compiler has detected a _ condition 
related to a particular construct which will cause an execution time 
error. 

This error may occur at an assignment or at a routine call in which 
parameters are passed. It indicates that the range of the source 
0..20; 


L; C(Xtarget's range: 1..10; source's range: 11..21 *%) 
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153 LBOUND/HBOUND dimension number is invalid for variable 


Low bound of subscript range is too large in magnituda 


The indicated array definition has an illegal subscript range which 
causes addressing code to be outside the range of the target 
machine's capability. 

The ORD of all SET members must lie within 0..255 


The ordinal value of any valid set member may not be less than 0 nor 
greater than 255. 


Length fields not applicable to non-TEXT files 


A non-text file READ or WRITE contains a length qualified parameter. 
Length specifications have no meaning in non-text file I/Q. 
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STRING variable is smaller than file component 


The error occurs when an attempt is made to perform a READ operation 
from a file cf STRINGs into a string variable in which truncation is 
possible. The string variable must be declared with at least the 
same length as the file component. 


Routines passed as paramater must be at outermost nesting level 

An attempt 1s being made to pass a routine as a parameter, but the 
routine being passed 18 nested within another. As a Pascal/VS 
restriction, routines being passed as parameters must not be nested 
Within another routine. 


Recursive type reference is not permitted 


The compiler detected a degenerate type declaration of one of the 
following forms: 


te type X = X; 
Il. type X = ax; 
III. type X = record 
Poe 
end — 


This SET cperation will always produce the NULL set 


Two disjoint sets are being intersected. The result will always be 
the null set [— J]. For example, 


Var Sl: set of 0..10; 


S2: get of 11..20; 
S3: set of 0..20; 


$3 3 S1 * $2; (% <== always produces the NULL set *) 
end — 
ELSE clause without associated IF statement 
A else symbol was detected that is not part of an if statement. 
This error often occurs when the preceding then clause of an If 
statement 1s terminated with a semicolon (3). 


Must be an unPACKED array 


The indicated array variable is erroneously declared as packed when 
the context requires it to be unpacked. 


Must be a PACKED array 


The indicated array variable should have been declared as packed, 
but was not. 


Unrecognizable procedure/function directive 


The indicated identifier was interpreted as a procedure or function 
directive but was not recognizable. The following are the only 
recognizable directives: 
- FORWARD 
- EXTERNAL 
FORTRAN 
MAIN 
REENTRANT 
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165 FORTRAN subroutines may not be passed as paramaters 


Only Pascal/VS routines may be passed as parameters; FORTRAN subrou- 
tines may not. 


One way to get around this problem is to define a Pascal/VS proce- 
dure which does nothing more than call the FORTRAN subroutine. The 
Pascal/VS procedure would then be passed in place of the FORTRAN 
subroutine. 

166 FORTRAN subroutine Parameters may not be passed by value 


All formal parameters of a FORTRAN subroutine orks be passed by ref- 
erence: either by var or by const. 


167 FORTRAN functions may return only scalar values 


A FORTRAN function may only return values that are scalars Cinclud- 
ing floating potnt). 


168 %INCLUDE member not found in library 


The library member which was to be included into the source program 
could not be found. 


Floating point computational error 


The indicated floating point expression causes a program error when 
evaluated. 


— 
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Data storage exceeds addressability of machine 


The memory required to contain all declared variables within a rou- 
tine or main program exceeds the capacity of the computer; that is, 
it exceeds 16 megabytes. 

171 Only STATIC/DEF variables may be initialized 


The only class of variables which may be tnitialized at compile time 
are def and static variables. 


172 Variable's address is not compile-time computable 
The indicated value assignment could not be performed. In order for 
a variable to be initialized at FOnD ures time, its address must be 
compile time computable. 


173 Array structure has too many elements 


The i tndicated array structure contains more elements) than was 
declared for the array type. 


174 Repetition factor applicable to constants only 


Within a array structure, only a constant may be qualified with a 
repetition factor; a general expression may not. 


175 No corresponding record field 


The indicated record structure Sontuins more elements than there are 
fields within the record type. 


176 | This identifier is a reserved name 


An attempt was made to declare an identifier which is a reserved 
name. 
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Numeric labels must lie within the range 0..9999. 


Identifier was previously referenced illegally 

The indicated identifier that was just declared was referenced pre- 
viously within the associated routine. Pascal/VS requires an iden- 
tifier to be declared prior to its use. 

Recursive reference within constant declaration 


A constant declaration of one of the following forms was detected: 
const X = X; 


or 
const X = "some expression involving X" 


Such recursion within a constant declaration 1s not permitted. 
Repetition factor not applicable to record structures 


The indicated record structure contains a component which 15 quali- 
fied with a repetition factor. Only array structures are permitted 
to have repetition factors. 


Label previously referenced from a GOTO invalidly 


The indicated label was previously referenced in a goto statement 
that 318 not ae constituent of the statement sequence in which the 
label is defined. 


Example 


begin 
- goto LABEL1; 
for I := 1 to 10 do 
beqin 
LABEL1: ALI] := 0; (%*<==label was previously referenced invalidly*) 
end; 
end 


A GOTO may not reference a label within a separate stmt sequence 


The indicated goto statement references a label which was previously 
defined within a statement sequence of which the goto is not a con- 
stituent. Such a reference 1s not permitted. 


Example 


begin 
for I := 1 to 10 do 
beqin 
LABEL1: ACT] 
end; 
apne LABEL1; (%*<==invalid reference of label *) 
en 


CASE label outside range of indexing expression 


The indicated case label within a case statement has a value which 
1s outside the range of the indexing expression. For example, 


var I: 0..105 


begin 
case I*2 of (*range of index 1s 0..20 *) 
0: ... 
Peseeo? ses 
30: ... £(*<== this label is out of range of index) 
end 
end 
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Second operand of MOD operation must be positive integer 


| 191 
a 


The indicated expression involving the mod operator was found to be 
invalid; the second operand is required to be a positive integer. 


Routine is not defined in standard Pascal 
This warning may be produced when the LANGLVLCOSTANDARD) compiler 


option 1s specified. The indicated call statement refers to a pre- 
defined Pascal/VS routine which does not exist in standard Pascal. 


Directive only applies to procedure, not to a function 

The indicated procedure directive ("MAIN™ or "REENTRANT™) is being 
applied to a function declaration. The directive is not supported 
for functions. 


First parameter of REENTRANT procedure must be an integer by var 


The indicated procedure declaration in which the directive 
"REENTRANT™ was specified, failed to comply with the parameter list 
requirement for such a- procedure: the first parameter of a 


WREENTRANT"™ procedure must be a pass-by-reference (specified with 
the var reserved word) integer in which a pointer to the Pascal/VS 
environment 1s saved between calls. 


Simple constant required 
A constant expression which required compile-time computation was 


found where a simple constant 185 required. This is often a warning 
message that may be produced when the LANGLVLOSTANDARD) compiler 


option 15 specified. 


%Percent directives are not recognized in standard Pascal 

This warning may be produced when the LANGLVLOSTANDARD) compiler 
option 18s specified. All compiler directives which appear in the 
source program With the percent (%) prefix are Pascal/VS extensions 
and are not supported in standard Pascal. 

FOR- or WHILE-loop has no statements within its body 

This 1S a warning message to indicate that a for-statement or 
while-statement loops on an empty statement. Such a case is often 
not the programmer's intent. : 

Examples 

while A > 0 do; 


for I := 1 to J do ; 


PACKED subranges not supported in standard Pascal 


This warning may be produced when the LANGLVLOCSTANDARD) compiler 
option 1s specified. Subrange type definitions may not be "packed" 
in standard Pascal. This feature is a Pascal/VS language extension. 
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Variable is not preperly aligned 


The indicated variable 1s being passed as a Var parameter and the 
compiler has detected that its address may not be properly aligned. 
CFor example, passing a full word integer which has an address that 
1s not on a word boundary. ) 


On most models of the 370 series, the manipulation of objects which 
are not properly align will result in a penalty in execution speed. 


This warning will be produced even if the variable is just poten- 
tially missaligned (Cas in the case of a subscripted variable). 


| | Recursion detected in "“%INCLUDE"” processing Lib(mem) 
Source text which was included from member "mem" in Library "lib" by 
means of the a “INCLUDE directive contains in itself a %*INCLUDE 
directive which directly or indirectly references the same member 


recursively. This error causes immediate termination of the compi- 
lation. 


Example 
Source program: Member TYPES: 


program EXAMPLE; REC = record 
type NAME: STRINGC10); 
“include TYPES; AGE : 0..99;3 
begin end 
Pa %include TYPES; (xX<===ERROR 500) 
end. 


Too many nesting levels in "%INCLUDE” processing lib(mam) 
A “INCLUDE directive was detected which is nested 8 levels deep 
within a stack of "includes". "Included" source text may not be 
nested beyond 8 levels. This error causes immediate termination of 
the compilation. 


Unable to open "*%INCLUDE™ library: libname 


The include library named "libname"™ could not be opened. Possible 
causes are that the DDname was not assigned or the DCB attributes of 


the library are not correct. This error causes immediate termi-~ 
nation of the compilation. 


600 Identifier used in type definition at line nnn is out of context: xxxx 
The identifier 'xxxx' appeared in a pointer type definrtion of the 
form '->xxxx' at line 'nnn', but the identifier was subsequently 
declared as something other than a type. 

Example: 
type X = ->Y; 


var Y: INTEGER; (*% <=== would cause error 600 to be generated *) 


Type identifier referenced at line nnn is undeclared: xxxx 


The identifier "*xxxx' appeared in a pointer type definition of the 
form '->xxxx' at line 'nnn', but the identifier was not subsequently 
declared. 


Label xxxx Was declared andvor referenced but was not defined 


The label named 'xxxx' was declared and/or referenced from within 
the associated routine, but was not ever defined. 


procedure/function xxxx was forwarded but not resolved 


The procedure or function named 'xxxx' was declared with the direc- 
tive '"FORWARD’', but the body of the routine was not subsequently 
declared. 
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Message and Explanation 


AMPOOO0I1S Routine "name’ is too large to compile at stmt n 


The indicated routine has too many statements to compile; a 

fixed-length table of the compiler has overflowed. The last 

statement that was successfully processed was statement "n", 

Hite routine should be divided into two or more separate rou- 
ines. 


AMPTOGIE Inevitable NIL pointer error will occur 


oh YE 


The code optimizer of the compiler has determined that a nil 
pointer checking error will inevitably occur at execution time 
at the specified routine and statement. Example: 


begin 
P := nil 
gees ares CX¥<===AMPTOOLE ~ inevitable error*) 
ena; 


AMPTOQZE Inevitable high bound error will occur 


The code optimizer of the compiler has determined that a high 
bound checking error will inevitably occur at execution time at 
the specified routine and statement. Example: 
var I : 1..10;3 
_ J ? INTEGER; 
begin 
J := 11; 
I := J; CX¥<=S==SAMPTOOZE ~- inevitable error*) 
end; 
AMPTOOSE Inevitable low bound error will occur 
The code optimizer of the compiler has determined that a low 
bound checking error will inevitably occur at execution time at 
the specified routine and statement. Example: 
var I =: 1..10;3 
_ J ? INTEGER; 
beqin 
J := 0; 
Io:= J; CX¥<===AMPTOO3E - inevitable error*) 
end; 
AMPTOOSE Function routine does not return a value 


The code optimizer of the compiler has determined that the spe- 
cified function routine does not return a result. Example: 


function (var I: INTEGER): INTEGER; 


egin 
READLNCI); 
end; C¥<===AMPT0N05 function did not return a result) 


AMPTO06E Expression is too complicated at stmt nnn of routine xxxxxxxx 


The expression in statement "nnn™ of routine "xxxxxxxx™ is too 
complex to compile and should be broken up into multiple state- 
ments. If the indicated statement contains a relatively simple 
Sea then the Pascal/VS support group should be 
notified. 
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[ = 


AMPT700S Routina "name" contains too many statements. Max=n 


The statement table being generated overflowed in the specified 
We ieped dia The routine should be divided into two or more rou- 
ines. 


AMPT7011 


AMPT 7025 
{ 


AMNPT 7041 Type table overflow. Dabug is disabled 


AMPL9O99S 
AMPO999S 
AMPT999S 


Record type contains too many fields 


The DEBUG compiler option was specified and a record type defi- 
nition was compiled that contains too many fields to be accomo- 
dated in the debugger type table. If this error should occur, 
the resulting code may not work properly when the interactive 
debugger is enabled. 


Routine "name" exceeds 8K limit at stmt n 


The specified routine caused more than 8192 bytes of code to be 
generated starting at statement number "n", Since Pascal/VS 
only reserves two base registers to address code, 8192 bytes is 
the limit. The indicated routine should be divided into two or 
more separate routines. 


Field name space pool overflowed 


The DEBUG compiler option was specified and a large number of 
record type definitions were compiled. The debugger table 
which contains the record field names overflowed. If this 
error should occur, the resulting code may not work properly 
when the interactive debugger is enabled. 


The module being compiled with the DEBUG option contains more 
than 256 unique data types. The type table being generated for 
the interactive debugger may contain no more than 256 entrias. 
The interactive debugger may not be used on this module. 


Compiler error notify Pascal/VS Support 


An error was detected in the first pass of the compiler. If 
this error should occur, please notify Pascal/VS support § at 
IBM. 


Notify Pascal/VS Support - Optimizer Error 
An error was detected in the second pass of the compiler. If 
this error should occur, please notify Pascal/VS support at 
IBM. 


Notify Pascal/VS Support - Translation error 


An error was detected in the third pass of the compiler. If 
this error should occur, please notify Pascal/VS support at 
I 
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17.2 EXECUTION TIME MESSAGES 


Message and Explanation | 
eae ee So een a ee See ee oe te et en eee 
Operation exception 


AMPXOLIE 


An operation exception occurred in the program. The error is 
probably in an assembly language routine linked with your Pas~ 
cal program or due to a ‘wild’ assignment through an uninitial- 
1zed pointer. 


AMPXO12E 


Privileged exception 


A privileged exception occurred in the program. The error 1s 
probably in an assembly language routine linked with your Pas- 
cal program. 


AMPXO13E Execute exception 


An execute exception occurred in the program. The error is 
probably in an assembly language routine linked with your Pas~- 
cal program. 


Protection exception 


A protection exception occurred in the program. The error is 
probably due to a 'wild" assignment through an uninitialized 
pointer, or to an array assignment with a bad subscript (with 
checking off). 


AMPXO15E Addressing exception 


An addressing exception occurred in the program. The error is 
probably due to a 'wild' assignment through an uninitialized 
pointer, or to an array assignment with a bad subscript (with 
checking off). 


AMPXO016E Specification exception 


A specification exception occurred in the program. The error is 
probably in an assembly language routine linked with your Pas- 
cal program. 

AMPXOL7TE Data exception 


A data exception occurred in the program. The error is probably 
in a non-Pascal routine Linked with a Pascal program. 


AMPXO18E Fixed point overflow exception 


A fixed-point overflow exception occurred in the program. The 
error is probably due to an addition, subtraction, or multipli- 
cation that resulted in an integer with a magnitude which 
exceeds MAXINT. 


AMPX019E Fixed point divide by zero exception 


A fixed point divide by zero exception occurred in the program. 
The error is due to a div operation in which the second operand 
(the divisor) has the value zero. 


AMPX020E Decimal overflon exception 


A decimal overflow exception occurred in the program. The error 
17S probably occurred in a non~Pascal routine linked to the Pas~- 


cal program. 
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AMPXOCIE 
AMPX022E 


AMPX023E 


AMPXO024E 
AMPX025E 


AMPX026E 


ANPX027E 


ANPXOC8E 


ANPX029E 
AMPXO30E 


a 
nn 


Decimal divide by zero exception 


A decimal divide by zero exception occurred in the program. 
The error probably occurred in a non-Pascal routine linked to 
the Pascal program. 


Exponent overflon exception 


An exponent overflow exception occurred in the program. The 
error 18s probably due toa floating point multiplication or 
division which produces a result with a magnitude greater than 
7.23/700557733226E75. 


Exponent underflow exception 


An exponent underflow exception occurred in the program. The 
error 18 probably due toa floating point multiplication or 
division which produces ae result with a magnitude less than 
5.397605346934503E-79. 

Significance exception 

This exception is not intercepted by the Pascal/VS run time 
environment. If 1t should occur, then the Pascal/VS run time 
environment may have been locally modified. Contact your local 
system support. 

Floating point divide by zero exception 


A floating point divide by zero exception occurred in the pro- 
gram. The error 1s caused by an attempt to divide by zero. 


Seament translation exception 


This 15 a system error, run the program again and if the error 
persists contact Pascal/VS Development for assistance. 


Page translation exception 


This is a system error, run the program again and if the error 
persists contact Pascal/VS Development for assistance. 


Translation specification exception 


This 18 a system error, run the program again and if the error 
persists contact Pascal/VS Development for assistance. 


Special operation exception 


This is a system error, run the program again and if 
persists contact Pascal/VS Development for assistance. 


Terminal attention exception 

An attention was signaled from the users terminal. 
Low bound checking error 

Either the value of an array subscript, or the value being 
assigned to a subrange type variable is less than the minimum 
allowed for the subscript or subrange. This error may also 
result if the mod operation is attempted for which the second 
operand (the divisor) 1s less than or equal to zero. 

High bound checking error 

Eicher the value of an array subscript, or the value being 


assigned to a subrange type variable is greater than the maxi-~ 
mum allowed for the subscript or subrange. 
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Nil pointer checking error 


An attempt was made to reference a dynamic variable from a 
pointer which has the value nil. 


AMPXOZSE 
AMPXOSGE | 
| AMPXO3S5E | 
A function routine returned to its itnvoker without being 
| assigned a result. | 
AMPXO036E Assertion failure checking error 
The expression of an assert statement computed to the value 
| FALSE. 
| AMPXO37E String subscript out of bounds checking error 
| The subscript on a STRING was not in the range 0..LENGTH(s), 
where 5s 15 the STRING being subscripted. 


AMNPXOS8E Error 38 not assigned 
| This error number has not been assigned a meaning. 


ANPXO39E String truncation checking error 


Case label checking error 


The expression of a case-statement has a value other than any 
of the specified case labels and there is no othernise clause. 


Function value checking error 


An assignement into a STRING variable could not be performed 
because the length of the source string is longer than the max- 
imum length of the destination string. 


File could not be opened: DDNANE 


AMPX0415S 


An error occurred when an attempt was made to open the file 
with the indicated DDname. The most probable cause of this 
error 15 a missing DDname definition. Under CMS, this error 
Will occur when attempting to open a file that does not have a 
record format of °F" or ‘'¥V". 


Lrecl size too small for file DDNAME | | 
The logical record length of the file with the indicated DDNAME 
| is not large enough to contain a single file component. 
AMPX043E | File is not open for output: DDNAME | 
An output operation was attempted ona file open for input. 
File is not open for input: DDNAME | | 


AMPX045E 


An input operation was attempted on a file open for output. 
Logical record is too small in input file 
The logical record length of a particular record within a vari- 


able record length file is not large enough to contain a file 
component. | 


AMPXO046E Data larger than lrecl for file 


The logical record length of a file is too small to contain the 
file's component. 


152 Pascal/VS Programmer's Guide 


an 


— 
AMPXOS58I 


TNL SN20-4445 (31 December 1981) to SH20-6162-1 


Invalid Input/Output option: xxxxx... 


The options string passed to the procedure contains an incor- 
rect or invalid option. 


Missing member in file: member library 


The indicated member could not be found in the partitioned data 
set. 


Floating point overflon/underflow 


The floating point number read by procedure READ was either too 
large or too small to be represented within the machine. 


BLKSIZE exceeds 32760 in file DDNAME 


A block size was specified that exceeds 32760 which is the max- 
imum length of a block. 


LRECL > BLKSIZE-4 in V format file: DDNAME 


The logical record size was too large to permit at least one 
record to be fit ina block. 


BLKSIZE not integer multiple of LRECL in DDNAME 


The specified block size for a fixed-length record file is not 
an tnteger multiple of logical records. 


Component length of file exceeds 32760 in DDNAME 


A single element must fit in one logical record, therefore its 
length is restricted to 32760 bytes. 


GET or READ called after end-of-file in DDNAME 

An attempt was made to advance the file beyond the end-of-file. 
Integer READ operation failed for file DDNAME | 7 
An attempt was made to read an integer from a text file, but 


either the eand-of-file occurred, or unrecognizable character 
were detected where the integer should have been. 


Overflon/underflow detected in integer READ: DDNAME 


An attempt was made to read an integer which has a value that 
does not lie within the range -2147483648. .2147483647. 


Invalid run time option: 


An invalid option was specified when invoking a Pascal/VS pro- 
gram. A runtime option is specified preceeding a_ slash '/' 
when invoking the program. 


OPEN and INTERACTIVE are no longer supported, use READ/WNRITE 


The procedures OPEN and INTERACTIVE are not supported in Real- 
ease 2.0. The Pascal/VS Programmer's Guide SH20-6162-1 and the 
Pascal/VS Reference Manual SH20-6168-1 describes the equivalent 
operations. . 
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AMPXO59E Text exceeds logical record length in file "name" 
A line of data is being written to the text file whose DDname 
is "name™ and the line exceeded the logical record length of 
the file. As a recovery, the line is terminated at the end of 
the logical record and the remaining text of the line is placed 
in the next logical record. 
For each file being written, this error will be diagnosed only 


on the first occurrence; subsequent violations will not be 
diagnosed. 


AMPXO60E Cperand to RELEASE does not correspond to MARK 
The parameter passed to RELEASE did not have the value returned 
by a call to MARK. 


Operand to DISPOSE not allocated with NEW 


A DISPOSE operation was attempted for a pointer which did not 
have a valid value as would have been returned by NEW. 


AMPX061E 
AMNPXO63E 


AMPX064E 


Operand to DISPOSE already deallocated 


An attempt was made to perform a DISPOSE operation on a pointer 
which referenced heap storage which had been previously 
released. 


Insufficient space to do NEW 


There was not enough storage available to perform the NEW pro- 
cedure. You should execute the program ina larger region (05S) 
or in a larger virtual machine (CMS). Also, you may not be 
calling DISPOSE for storage you no longer need. 


Storage has been incorrectly assigned prior to DISPOSE 


The pointer being disposed of was used incorrectly, namely, the 
pointer caused the heap to be modified beyond the size of the 
dynamic variable. This could happen if the dynamic variable 
was a record that was allocated by specifing tag values and 
then it was later used to assigning to a different variant. 


ANPXO65E 


Operand to DISPOSE is NIL or undefined. 
The operand is not valid for DISPOSE. 


AMPX066E 
AMPX06/7E 
AMNPXO70E 


) AMPXO7I1E 


Heap incorrect due to previcus invalid assignment using a pointer 


The heap has been damaged, the cause of the damage was probably 
due to a pointer being used incorrectly. 


LN: argument <= 0.90 


The natural logarithm function CLN) was called with a 0 or neg- 
ative argument. 


SQRT: arqgument < 0.0, zero returned as result 


The square root function (SQRT) was called with a negative 
argument. 


AMPXO72E | EXP: argument too large, exceeds 174.67309 
The argument of the EXP function is too large; the result of 
the call exceeds the largest real number that can be repres- 
| ented: 7.237et/5. 
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AMPXO73E 


AMPX074E 


AMPX075E 


AMPX076E 


AMPX077E 


AMPX078E 


AMPX079E 


AMPXOSI1E 


AMPX082E 


AMPX083E 


AMPXO08SE 


AMPXO85E 


AMPX086E 


AMPXO87E 


AMPXO0838E 
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RANDOM: seed is out of range 


The function RANDOM was called with an argument which is either 
negative or greater than 1048575 Cwhich 1s the allowed 
maximum) . 


SIN/COS: argument too large, exceeds (PI/2)* x50 


A call to SIN or COS was made with an argument that is too 
large for an accurate result to be computed. 


SEEK called for a file not opened for DIRECT access 


SEEK: bad relative record address 


The record number in an invocation of SEEK has an invalid 
value. 


Direct access file does not have fixed unblocked records: DDNAME 


An attempt was made to perform direct access (relative record) 
operations on ae file that was either not fixed or not 
unblocked. The required record format for a file to be manipu- 
lated with SEEK is RECFM=F. 


Target string filled to maximum length in WRITESTR call 


The target STRING (Cfirst parameter) ina call to WRITESTR was 
filled to capacity before the data being assigned into the 
STRING was exhausted. 

Source string exhausted in READSTR call 


Prior to reading all data from the the source string (first 
parameter), the end of the string was encountered. 


LPAD: PADDING exceeds maximum length of string 


The specified pad length (second operand) exceeds the maximum 
allowed length of the target string (first parameter). 


DELETE: Length parameter less than zero 


DELETE: starting index is less than 1 
DELETE: substring not contained within source string 


Set operation out of bounds 


An attempt to perform a set operation in which the resulting 


set contained members’ which are outside the range of a target 
set. This can occur ina set assignment in which the source 
set contains members which are not valid for the declared type 
of the target set. 


SUBSTR: Length parameter less than zero 
SUBSTR: starting index is less than 1 
SUBSTR: substring not contained within source string 
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AMPX089E 


AMPX200I The module must be Linked with DEBUG for debugger features | 
An attempt was made to invoke the interactive debugger ona 


module that was not linked with the debugger library. 


| AMPX201I | The module must be linked with DEBUG for symbolic dump 
An execution time error occurred and a symbolic dump of the 
| | offending routine was attempted, but the module in which the 


routine is located was not compiled with the DEBUG option. 


RPAD: padding exceeds maximum length of string 


The specified pad length (second operand) exceeds the maximum 
allowed length of the target string (first parameter). — 


AMPX203I 


AMPX999S | 


Error occurred while executing ONERROR routine 


An execution time error has occurred while ONERROR was execut-— 
ing. ONERROR is a user provided procedure to diagnose exe- 
cution errors and determine the correct course of action. 


NOTIFY PASCAL/VS SUPPORT: RECURSIVE ERROR IN RUNTIME ENVIRONMENT 


A second error was encountered while Pascal/VS was recovering 
from the first error. The program is terminated because any 
further processing would probably result in a CPU bound loop. 
You. should notifiy Pascal/VS Development if this error 
persists. 
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Message and Explanation 


AMPDS500 Current module not compiled with Debug option 
No statement *** in 


AMPD502 There is no routine named * in module 


AMPD503 Invalid qualification specification: 


AMPD504 Missing qualification specification 
AMPD505 Module name must be specified 


AMPDS506 Breakpoint is already set 


AMPD507 Maximum number of breakpoints have been set 
AMPD508 Specified breakpoint does not exist 
AMPDSO9 | is an automatic variable local to a non-active routine 


AMPD510 Field qualified variable is not a record 


AMPD511 is not a valid record field 


AMPDS5l2 Subscripted variable 1s not an array 


Array subscript is not a scalar 
AMPD514 Invalid symbol: 
AMPDS515 Array subscript 1s out of bounds: 
AMPD516 Missing symbol: 


AMPDS517 Associated variable is not a pointer 


AMPD518 Pointer variable does not contain valid address 
AMPD519 not found in symbol table 


AMPD520 Equate substitution is in infinite recursion 


~~ 
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AMPDS21 EQUATE expansion causes command truncationlexceeds 255 characters 


AMPD522 You are not in CMS, command not valid 


AMPDS23 Debug command not recognized: 


AMPD524 Invalid character in hexadecimal string: 


AMPDS25 Invalid hexadecimal string 


AMPD526 Routine is not active | 


ANPD527 Qualification set to module 


AMPDS28 The word “EQUATE™ may not be redefined 


AMPD529 Maximum number of EQUATE''s have been set 


AMPD530 There are no EQUATE'’s currently set 


Statement table missing 


AMPD531 


Trace requires GOSTMT option 


There are no active variables 
Routine is not active: | 
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17.4 MESSAGES FROM PASCALVS EXEC 


The following messages are given by the They are shown below with their associ- 
PASCALVS EXEC of CMS to indicate the ated return codes. 
status of the compiler invocation. 


Message and Explanation 


File name is missing 

The exec was invoked without specifying a file name. 
Unable to find "fn" PASCAL 

The specified file name could not be found. 

Unable to find the ‘name’ MACLIB 

The specified maclib file could not be found. 


More than 8 maclibs specified 


The maximum number of MACLIBS that may be specified when invoking 
the PASCALVS EXEC is eight. 
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APPENDIXES 


"Command Syntax Notation™ on page 163 
"Installation Instructions" on page 165 


"Additional Library Procedures and Functions” on page 175 
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ee 


The syntax notation used to illustrate 
TSO commands is explained in the manual 
TSO Command Language Reference 
(6028-0646). The notation used to 
illustrate CMS commands is explained in 
the manual VM/370: CMS Command and Mac- 
ro Reference (GC20-1818). 


Briefly, the conventions used by both 
notations are as follows. 


e Items in brackets [ ] are optional. 
If more than one item appears in 
brackets, then no more than one of 
them may be specified; they are 
mutually exclusive. 


A.0 COMMAND SYNTAX NOTATION 


Items in capital letters are 
keywords. The command name and 
keywords must be spelled as shown. 


Items in lowercase letters must be 
replaced by appropriate names or 
values. 


Items which are underlined repre- 
sent defaults. 


The special characters ' ( ) * must 
be included where shown. 
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This section describes how to install 
Pascal/VS under OS/VS2 and CMS-VM/370 
from the distribution tape. 


All VS2 partitioned data sets (Cother 
than the compiler source) were stored 
on the tape by using the IEBCOPY utili- 
ty program. VS2 sequential data sets 
were stored by using the IEBGENER util- 
ity program. 


The CMS version of the package is 
located at file 12 on the tape. It was 
stored by using the TAPE DUMP command. 


The source of the compiler was stored 
using the utility program IEBUPDTE. 


The files on the distribution tape con- 
tain the following data sets. 


File 1: INSTALL.CNTL 
A sample of the job control lan- 
guage (JCL) required to install 
Pascal/VS under OS/VS2 (MVS). 


File 2: LOADSRC.CNTL 
A sample of the job control lan- 
guage (JCL) required to load the 
Pascal/VS source from the dis- 
tribution tape. 


File 3: PASCALVS.CONTENTS 
A sequential data set which lists 
the contents of the Pascal/VS 
package. 


File 4: PASCALVS.LINKLIB 
A partitioned data set which con- 
tains the modules of the 
compiler. 


File 5: PASCALVS.LOAD 
A partitioned data set which con- 
tains the Pascal/VS run time 
library. 


File 6: PASDEBUG.LOAD 
A partitioned data set which con- 
tains the Pascal/VS debug 
library. 


File 7: PASCALVS.MACLIB 
The standard include library. 


File 8: PASCALVS.CLIST 
A partitioned data set contain- 
ing two clists: PASCALVS and 
PASCMOD. 


File 9: PASCALVS.PROCLIB 
A partitioned data set which con- 
tains the JCL cataloged proce- 
dures for running the compiler as 
a batch job under MVS. 


File 10: SAMPLE.PASCAL 
A partitioned data set contain- 
ing sample programs. 
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APPENDIX B. INSTALLATION INSTRUCTIONS 


File 11: PASCALVS.MESSAGES 
A sequential data set which con- 
tains the compiler messages. 


File 12: CMS dump of the entire 
Pascal/VS package: 


- PASCALVS CONTENTS 
A listing of the contents of 
the Pascal/VS package. 


- PASCALS MODULE 
A program that issues all 
necessary FILEDEF commands 
to CMS prior to invoking the 
compiler. 


~ PASCALL MODULE 
The first pass of the compil- 
er. 


- PASCALO MODULE 
The second pass of the com- 
piler. 


- PASCALT MODULE 
The third pass of the compil- 
er. 


- PASCALL TXTLIB 
the txtlib from which PAS- 
CALL MODULE was generated. 


~ PASCALO TXTLIB 
the txtlib from which PASCA- 
LO MODULE was generated. 


- PASCALT TXTLIB 
the txtlib from which PAS- 
CALT MODULE was generated. 


~ PASCALVS TXTLIB 
The Pascal/VS run time 
library. 


- PASDEBUG TXTLIB 
The Pascal/VS debug library. 


- PASCALVS MACLIB 
The standard ZINCLUDE 
library. 


-~ PASCALVS EXEC 
CMS EXEC which invokes the 
compiler 


- PASCALVS CMSHELP 
Help file that is accessed 
when "PASCALVS 7" 1s 
invoked. 


~ PASCMOD EXEC 
CMS EXEC which creates a load 
module from a compiled Pas- 
cal/VS program. 


- PASCALVS MESSAGES 
List of the compiler mes- 
sages. 
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= LOADSRC EXEC 
An EXEC which will load the 
source of the compiler from 
the tape. 


~ SAMPLE PASCAL 
A sample program. 


~ PRIMGEN PASCAL 
A sample program. 


File 13: PASCALL.PASCAL 
The source of the first pass of 
the compiler. 


File 14: PASCALO.PASCAL 
The source of the second pass of 
the compiler. 


File 15: PASCALT. PASCAL 
The source of the third pass of 
the compiler. 


File 16: PASCALD. PASCAL 
The source of the interactive 
debugger. 


File 17: PASCALX. PASCAL 
The source of the runtime library 
routines. 


File 18: PASCALX.ASM 
The source of the operating sys~ 
tem interface routines. 


File 19: MACLIBL.PASCAL 
Include library for first pass of 
the compiler. 


File 20: MACLIBO. PASCAL 
Include library for second pass 
of the compiler. 


File 21: MACLIBT.PASCAL 
Include library for third pass of 
the compiler. 


File 22: MACLIBD.PASCAL 
Include library for interactive 
debugger. 


File 23: MACLIBX.PASCAL 
Include library for runtime rou- 
tines. 


B.1 INSTALLING PASCAL/VS UNDER CMS 


To install Pascal/VS under CMS perform 
the following: 


17° 800 byte blocks are assumed. 


a 3330 disk. 
18 


ling. 
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1. Have the distribution tape mounted 
at address 181. 


2. Link to the mini-disk Cin write 


mode) where the compiler is to be 
stored. This is done with the CP 
LINK command. The. mini-~disk must 
have at least 2300 blocks of free 
storage?!’ 


3. Access this disk with the ACCESS 
command. 


4. Execute the 
commands: 


TAPE FSF 11 
TAPE LOAD * * m 


following two 


where "m" is the single letter file 
mode of the disk that was accessed in 
the previous step. 


B.1.1 Regenerating Compiler Modules 


To fix bugs that are discovered in the 
compiler often requires modules of the 
compiler to be recompiled.?* To replace 
a compiled module (a text deck) of the 
compiler, execute the following two 
commands: 


TXTLIB DEL PASCALx AMPxcccc 
TXTLIB ADD PASCALx AMPxccec 


where "PASCALx" is either PASCALL, PAS- 
CALO, or PASCALT, depending on which 
phase of the compiler is being fixed; 
VWAMPxcccc”™ is the module name being 
replaced. 


After the appropriate text modules have 
been replaced, then the associated load 
module will need to be regenerated. To 
regenerate PASCALL MODULE, execute the 
following: 


PASCMOD AMPLMAIN PASCALL CNAME PASCALL 


To regenerate PASCALO MODULE, execute 
the following: 


PASCMOD AMPOMAIN PASCALO CNAME PASCALO 


To regenerate PASCALT MODULE, execute 
the following: 


PASCMOD AMPTMAIN PASCALT CNAME PASCALT 


This amount is equivalent to 9 cylinders on 


The Pascal/VS compiler is written entirely in Pascal/VS and is self-compi-~ 


compiler, execute the following two 


commands: 


TXTLIB DEL PASCALx AMPxcccce 
TXTLIB ADD PASCALx AMPxcccc 


where "PASCALx"™ is either PASCALL, 
PASCALO, or PASCALT, depending on which 
phase of the compiler is being fixed; 
WAMPxcccc™ 15 the module name being 
replaced. | 


After the appropriate text modules have 
been replaced, then the associated load 
module will need to be regenerated. To 


regenerate PASCALL MODULE, execute the 
following: 


PASCMOD AMPLMAIN PASCALL CNAME PASCALL 


To regenerate PASCALO MODULE, execute 
the following: 


PASCMOD AMPOMAIN PASCALO CNAME PASCALO 


To regenerate PASCALT MODULE, execute 
the following: 


PASCMOD AMPTMAIN PASCALT CNAME PASCALT 
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//JOBNAME JOB ,REGION=50K 
Z/STEP1 EXEC PGM=IEBGENER 
//SYSPRINT DD SYSOUT=x 


//SYSUT1 DD DSN=PASCALVS.INSTALL.CNTL, 


VOL=SER=TAPEVOL, 
UNIT=TAPE,LABEL=(1,NL), . 


DCB=(LRECL=80,RECFM=FB,BLKSIZE=3120,DEN=3), 


DISP=OLD 


//SYSUT2 DD DSN=XXXXXXXX.INSTALL.CNTL,DISP=(NEW,CATLG), 
1 DCB=(LRECL=80,RECFM=FB,BLKSIZE=3120), 


// UNIT=3330,VOL=SER=DISKVOL, 


// SPACE=CTRK,(€1,1)) 
//SYSIN DD DUMMY 


Figure 96. Sample JCL to retrieve first file of distribution tape. 


B.e2 INSTALLING PASCAL/VS UNDER VS2 


This section explains how to tnstall 
Pascal/VS under an OS/VS2 system. 


B.2.1 Loading Files from Distribution 
Tape 


A sample of the job control language 
required to install Pascal/VS under VS2 
(MVS) is stored as the first file of 
the distribution tape. To retrieve 
this data set, the utility program 
IEBGENER must be used. The JCL shown 
in Figure 96 may serve as a model job 
to retrieve this file. DD operands 
which are high-lighted will require 
modification to suit your installation 
requirements. The serial number of the 
distribution tape must be placed where 
the name "TAPEVOL™ appears in the DD 
card named SYSUT1. 


The data set name (DSN=) in the DD card 
named SYSUT2 1s arbitrary. It is the 
name of the data set where the first 
file on the tape is to be stored. The 
appropriate UNIT and volume serial num- 
ber for disk storage must be specified 
for DD SYSUT2. 


Figure 97 on page 169, Figure 98 on 
page 170, and Figure 939 on page 171 
contain a listing of the first file of 
the distribution tape. The following 
modifications are required prior to 
submitting this job. 


e The name "TAPEVOL” must be replaced 
with the volume serial number of 
the distribution tape in the ODD 
ea named SYSUT1 in job step 
STEP1. 
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The UNIT specification for tapes 
has been given the generic name of 
"TAPE"; this should be changed to 
the appropriate generic at your 
installation. 


The UNIT specification for disk 
storage has been specified as 
"3330"; this should be changed to 
the appropriate specification at 
your installation. 


The disk volume on which Pascal/VS 
15 to be installed must be speci- 
fied where indicated ("DISKVOL") 
in the following DD statements: 
in STEPL: SYSUT2 
in STEP2: SYSUT2 
in STEP3: DS4&, DS5, DS6, 
DS7, DS8&, DSI, 
DS10 
in STEP4: SYSUT2 


The DD statements named SYSUT3 and 
SYSUT4 in job step STEP3 represent 
temporary work storage. The gener- 
ic name "SYSDA" is used as a UNIT 
specification; this should be 
changed to the appropriate generic 
at your installation. 


The tape density is specified with- 
in the DEN suboperand of the DCB 
attributes. In the sample job, DEN 
is set to 3 which indicates a tape 
density of 1600 BPI. If your dis- 
tribution tape 15 at some other 
density, then the DEN’ operands 
should be changed accordingly. 


The high level qualifier of data 
set names that are to be cataloged 
should be modified to follow 
installation conventions. (The 
examples in this manual assume a 
high level qualifier of "SYS1". ) 


% 
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//JOBNAME JOB ,REGION=50K 
//STEP1 EXEC PGM=IEBGENER 
//SYSPRINT DD SYSOUT= 


//SYSUT1 DD DSN=PASCALVS. INSTALL. CNTL, 


| S/ VOL=SER=TAPEVOL, 
ms4 UNIT=TAPE,LABEL=C1,NL), 


/7/ DCB=(LRECL=80, RECFM=FB, BLKSIZE=3120,DEN= DEN=3), 


DISP=OLD 


47 

//SYSUT2 DD DSN=XXXXXXXX. INSTALL. CNTL, DISP=CNEW,CATLG), 
47 DCB=(LRECL=80,RECFM=FB,BLKSIZE=3120), 

// UNIT=3330, VOL=SER=DISKVOL, 

17 SPACE=CTRK,(€1,1)) 
//SYSIN DD DUMMY 


Figure 96. Sample JCL to retrieve first file of distribution tape. 


B.2 INSTALLING PASCAL/VS UNDER VS2 


This section explains how to install 
Pascal/VS under an OS/VS2 system. 


B.2.1 Loading Files from Distribution 
Tape 


A sample of the job control language 
required to install Pascal/VS under VS2 
(MVS) its stored as the first file of 
the distribution tape. To retrieve 
this data set, the utility program IEB- 
GENER must be used. The JCL shown in 
Figure 96 may serve as a model job to 
retrieve this file. DD operands which 
are high-lighted will require modifi- 
cation to suit your installation 
requirements. The serial number of the 
distribution tape must be placed where 
the name "TAPEVOL™ appears in the DD 
card named SYSUT1. 


The data set name (DSN=) in the DD card 
named SYSUT2 is arbitrary. It is the 
name of the data set where the first 
file on the tape is to be stored. The 
appropriate UNIT and volume serial num- 
ber for disk storage must be specified 
for DD SYSUT2. 


Figure 97 on page 168, Figure 98 on 
page 169, and Figure 939 on page i170 
contain a listing of the first file of 
the distribution tape. The following 
modifications are required prior to 
submitting this job. 


e The name "TAPEVOL" must be replaced 
with the volume serial number of 
the distribution tape in the DD 
oo named SYSUT1 in job step 

Pi. 
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The UNIT specification for tapes 
has been given the generic name of 
"TAPE™; this should be changed to 
the appropriate generic at your 
installation. 


The UNIT specification for disk 
storage has been specified as 
"3330"; this should be changed to 
the appropriate specification at 
your installation. 


The disk volume on which Pascal/VS 
is to be installed must be speci- 
fied where indicated ("DISKVOL") 
in the following DD statements: 
in STEP1: SYSUT2 
in STEP2: SYSUT2 
in STEP3: DS4, DS5, DS6, 
DS7, DS8&, DSI, 
DS10 
in STEP4: SYSUT2 


The DD statements named SYSUT3 and 
SYSUT@ in job step STEP3 represent 
temporary work storage. The gener- 
ic name "SYSDA" is used as a UNIT 
specification; this should be 
changed to the appropriate generic 
at your installation. 


The tape density is specified with- 
in the DEN suboperand of the DCB 
attributes. In the sample job, DEN 
is set to 3 which indicates a tape 
density of 1600 BPI. If your dis~- 
tribution tape is at some other 
density, then the DEN operands 
should be changed accordingly. 


The high level qualifier of data 
set names that are to be cataloged 
should be modified to § follow 
installation conventions. (The 
examples in this manual assume a 
high level qualifier of "SYSL". ) 


/7INSTALL JOB ,REGION=128K 


11% 

//¥ FILE 2 -- SOURCE INSTALLATION JOB 
1/%® 

Z/STEPL1 EXEC PGM=IEBGENER 


//SYSPRINT DD SYSOUT=% 
//S5YSUTI ae DSN=LOADSRC.CNITL, 


// VOL=C,RETAIN, SER=TAPEVOL), 
// UNIT= “TAPE, LABEL=(2,NL), 
// DCB=(LRECL=80, RECFM=FB, BLKSIZE=3120,DEN=3), 


// DISP=COLD,PASS) 
//SYSUT2 DD DSN=SYS1.LOADSRC.CNTL,DISP=(NEW,CATLG), 


S/ DCB=(LRECL=80,RECFM=FB, BLKSIZE=3120), 
4/ UNIT=3330,VOL=SER=DISKVOL, 

// SPACE=(3120,(€1,1)) 

//SYSIN DD DUMMY 

1/® 

S 1% FILE 3 ~~ PASCALVS CONTENTS 

17% 

//STEP2 EXEC PGM=IEBGENER 


//SYSPRINT DD SYSOUT=%* 
//SYSUTI DD DSN=PASCALVS.CONTENTS, 


tt VOL=REF=%.STEP1.SYSUT1, 

Sf UNIT=TAPE,LABEL=(3,NL), 

St DCB=(LRECL=80,RECFM=VB,BLKSIZE=3120,DEN=3), 
11 DISP=(OLD,PASS) 


//SYSUT2 DD DSN=SYS1.PASCALVS.CONTENTS,DISP=(NEW,CATLG), 
47 DCB=C(LRECL=80,RECFM=VB,BLKSIZE=3120), 
UNIT=3330,VOL=SER=DISKVOL, 


47 SPACE=(3120,(€1,1)) 
//SYSIN DD DUMMY 
/7/* 
4/*%& FILE & -- PASCALVS.LINKLIB 
//* FILE 5 -- PASCALVS.LOAD 
//*® FILE 6 -- PASDEBUG.LOAD 
47% FILE 7 -- PASCALVS.MACLIB 
//* FILE 8&8 -- PASCALVS.CLIST 
77% FILE 9 -- PASCALVS.PROCLIB 
4/* FTLE 10 -- SAMPLE.PASCAL 
4/4 % 
//STEP3 EXEC PGM=IEBCOPY 
4/054 DD DSN=SYS1.PASCALVS.LINKLIB,DISP=C(NEW,CATLG), 
f/ DCB=(BLKSIZE=13030,RECFM=U,DSORG=PO0), 
Sf UNIT=3330,VOL=SER=DISKVOL, 
/ SPACE=CTRK,(€50,10,3)) 
//FILE4 DD DSN=PASCALVS.LINKLIB, 
ff VOL=REF=* .STEP1.SYSUTI1, 
// UNIT=TAPE,LABEL=(4,NL), 
// DCB=BLKSIZE=13030, 
/7f DISP=COLD,PASS) 
4/0DS5 DD DSN=SYS1.PASCALVS.LOAD,DISP=CNEW,CATLG), 
// DCB=(CBLKSIZE=13030,RECFM=U,DSORG= POD, 
// UNIT=3330,VOL=SER=DISKVOL, 
// SPACE=C(TRK,(14,10,36)) 
//FILES DD DSN=PASCALVS.LOAD, 
// VOL=REF=*.STEP1.SYSUT1, 
ff DCB=BLKSIZE=13030, 
// UNIT=TAPE,LABEL=(5,NL), 
47 DISP=COLD,PASS) 
7/056 DD DSN=SYS1.PASDEBUG.LOAD,DISP=C(NEW,CATLG), 
4/ DCB=(BLKSIZE=13030,RECFM=U, DSORG=PO), 
// UNIT=3330,VOL=SER=DISKVOL, 
if SPACE=CTRK,(9,1,7)) 
Figure 97. Sample installation job: (continued tn Figure 


98 on page 170) 
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170 


//FILE6 


// 
//FILE8 
// 

// 

// 

47 
//DS9 
17 

// 


4/ 
//FILEY 


S/7SYSPR 
//SYSUT 
S/SYSUT 
//SYSIN 
COPY 
COPY 
COPY 
COPY 
COPY 
COPY 
COPY 
/* 


Figure 


DD 


DD 


DD 


DD 


DD 


DD 


DD 


DD 


INT 


3 
4 


DSN=PASDEBUG.LOAD, 
VOL=REF=*.STEP1.SYSUTI, 
DCB=BLKSIZE=13030, 
UNIT=TAPE,LABEL=(6,NL), 
DISP=C(OLD,PASS) 
DSN=SYSL.PASCALVS.MACLIB,DISP=(NEW,CATLG), 
DCB=(BLKSIZE=3120,RECFM=FB,LRECL=80,DSORG=PO) , 
UNIT=3330,VOL=SER=DISKVOL, 

SPACE=C(CTRK,(25,2,3)) 

DSN=PASCALVS.MACLIB, 

VOL=REF=*%.STEP1L.SYSUT1, 

UNIT=TAPE, LABEL=(7,NL), 

DCB=BLKSIZE=3120, 

DISP=COLD,PASS) 
DSN=SYS1.PASCALVS.CLIST,DISP=(NEW,CATLG), 
DCB=(BLKSIZE=3120,RECFM=VB,LRECL=255,DSORG=PO), 
UNIT=3330,VOL=SER=DISKVOL, 

SPACE=(TRK,(3,1,5)) 

DSN=PASCALVS.CLIST, 

VOL=REF=*%.STEP1.SYSUT1, 

DCB=BLKSIZE=3120, 

UNIT=TAPE,LABEL=(8,NL), 

DISP=C(OLD,PASS) 
DSN=SYS1.PASCALVS.PROCLIB,DISP=(NEW,CATLG), 
DCB=(BLKSIZE=3120,RECFM=FB,LRECL=80,DSORG=PO), 
UNIT=3330,VOL=SER=DISKVOL, 

SPACE=(TRK,(2,2,2)) 

DSN=PASCALVS.PROCLIB, 

VOL=REF=*.STEP1.SYSUTL, 

UNIT=TAPE,LABEL=(9,NL), 

DCB=BLKSIZE=3120, 

DISP=C(COLD,PASS) 
DSN=SYS1.SAMPLE.PASCAL,DISP=(NEW,CATLG), 
DCB=(BLKSIZE=3120,RECFM=FB,LRECL=80,DSORG=PO), 
UNIT=3330, VOL=SER=DISKVOL, 

SPACE=(TRK,(5,2,2)) 
DSN=SAMPLE.PASCAL, 
VOL=REF=*%.STEP1.SYSUTI, 
UNIT=TAPE,LABEL=(10,NL), 
DCB=BLKSIZE=3120, 
DISP=C(OLD,PASS) 

DD SYSOUT=* 

DD UNIT=SYSDA,SPACE=C(TRK, ¢ 
DD UNIT=SYSDA, SPACE=CTRK, ( 
DD x 


) 
) 


1) 
1) 


OUTDD=DS4, INDD=FILE4% 
OUTDD=DS5, INDD=FILE5 
OUTDD=D56,INDD=FILE6 
OUTDD=DS7,INDD=FILE? 
OUTDD=DS8, INDD=FILE8& 
OUTDD-DS9,INDD=FILE9 
OUTDD=DS10,INDD=FILE10 


98. 


Sample installation job: Ccontinued in Figure 99 on page 
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1/% 
//¥ FILE 11-- PASCALVS MESSAGES 
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//*® (Must be stored unblocked because of BDAM access requirements) 


17% 
//STEP4 EXEC PGM=IEBGENER 
//SYSPRINT DD SYSOUT=* 


//SYSUT1 DD DSN=PASCALVS.MESSAGES, 
VOL=REF=*.STEP1.SYSUTI1, 
UNIT=TAPE,LABEL=(11,NL), 


DCB=(LRECL=64,RECFM=FB,BLKSIZE=-3200,DEN=3), 


DISP=COLD,PASS) 


//SYSUT2 DD DSN=SYS1.PASCALVS.MESSAGES, DISP=(NEW,CATLG), 
// DCB=CLRECL=64,RECFM=F,BLKSIZE=64), 


// UNIT=3330,VOL=SER-=DISKVOL, 


17 SPACE=CTRK,(1,1)) 
//SYSIN DD DUMMY 


Sample installation job: 
and Figure 98) 


Figure 99. 


B.2.2 The TSO Clists 


Distributed with the compiler are two 
CLISTs: PASCALVS and PASCMOD. These 
CLISTs reside in the partitioned data 
set PASCALVS.CLIST (file 8 of the dis- 
tribution tape). 


These CLISTs should be stored in a pub- 
lic CLIST library that 1s accessable to 
TSO users through DDname SYSPROC. 


Fach CLIST must be modified so that the 
correct high level qualifier name is 
used to reference the Pascal/VS data 
sets. In PASCALVS, the symbol named 
"FIRSTNAME” should be set to the appro- 
priate name. In PASCMOD, the symbols 
named "LIBRARY" and “DEBUGLIB™ should 
be set to the names of the Pascal/VS 
run time library and the debug library, 
respectively. 


B.2.3 Cataloged Procedures 


Distributed with the compiler are four 
cataloged procedures for invoking the 
compiler from a batch job: PASCC, 
PASCCG, PASCCL, and PASCCLG. These 
procedures reside in the partitioned 
data set PASCALVS.PROCLIB (file 9 of 
the distribution tape). 


These procedures should be stored ina 
cataloged procedure library, so that 
the names will be recognized when ref- 
erenced froma batch job. 


Each procedure must be customized to 
reflect the data set naming convention 
chosen at your tnstallation. For a 


19 This is roughly 9400 800-byte blocks. 


Ccontinued from 


Figure 97 on page 168 


listing of the cataloged procedures see 
"IBM Supplied Cataloged Procedures" on 
page 24. 


B.3 LOADING THE SOURCE UNDER CMS 


The compiler source is stored on the 
distribution tape beginning at file 13; 
that 1s, 12 tape marks from the begin- 
ning of the tape. It consists of nine 
tape files stored in the IEBUPDTE for- 
mat. To read such a format under CMS, 
the TAPPDS command must be utilized. 


The LOADSRC EXEC, which is provided as 
part of the Pascal/VS package, may be 
used to load all of the source files to 
a single disk. To run this EXEC, per- 
form the following: 


1. Have the distribution tape mounted 
at address 181. 


2. Access the disk where the source 
files are to be stored in R/W mode. 
The disk must have the equivalent 
of 35 free cylinders of 3330 stor- 
age.?9 


3. Make sure that there is the equiv- 
alent of at least 2 free cylinders 
of 3330 storage on your “A™ disk. 


4. Invoke the LOADSRC EXEC as follows: 
LOADSRC fm 

where "fm" is the single letter 

file mode of the disk to where the 

source files are to be placed. The 


EXEC will print out messages as it 
processes the tape. 


Once the source files have been 


installed, you may find it desirable to pack them in order to save disk 


storage. 
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B.4 LOADING THE SOURCE UNDER VS2 


The compiler source is stored on the 
distribution tape beginning at file 13. 
It consists of nine tape files stored 
in the IEBUPDTE format. 


File 2 of the distribution tape con- 
tains the JCL which copies the source 
files to disk storage. This file is 
unloaded when the compiler is installed 
and has been given the name 
*LOADSRC.CNTL". 


Prior to submitting the job, it must be 
customized as follows: 


e In ddname SYSIN of jobstep STEPI, 
the volume serial number of the 
distribution tape should be placed 
where the name TAPEVOL is shown. 


° The UNIT specification for tapes 
has been given the generic name 
"TAPE"; this should be changed to 
the appropriate generic at your 
installation. 
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The UNIT specification for disk 
storage has been specified as 
"3330"; this should be changed to 
the appropriate specification at 
your installation. 


The disk volume on which the source 
files are to be stored must replace 
the name "DISKVOL" in the DD state- 
ment named SYSUT2 in each job step. 


The high level qualifier for the 
data set names to be cataloged is 
arbitrary. In the supplied JCL, 
the name "SOURCE" is used. 


If you do not want a listing of the 
source, then DDname SYSPRINT 
should be assigned to DUMMY in each 
of the job steps. 


The tape density is specified with- 
in the DEN suboperand of the DCB 
attributes. In the JCL, DEN is set 
to 3 which indicates a tape density 
of 1600 BPI. If your distribution 
tape is at some other density, then 
the DEN operands should be changed 
accordingly. 


//LOADSRC JOB ,REGION=50K 
11% 


17% FILE 13 -- PASCALL PASCAL - PASS 1 SOURCE CCOMPILER) 


//STEP1 EXEC PGM=IEBUPDTE,PARM=NEW 
//SYSUT2 DD DSN=SQURCE.PASCALL.PASCAL, DISP=C(NEW,CATLG), 


a ee beioineutntarcamecenmeinas’ 


/7 UNI T=3330,DCB=(LRECL=80,BLKSIZE=3120,RECFM=FB), 

// VOL=SER=DISKVOL, SPACE=(TRK, (132,43,5)) 

//SYSIN DD UNIT=TAPE,VOL=(,RETAIN, SER=TAPEVOL),LABEL=(13,NL), 
4/7 DISP=COLD,PASS), 

17 DCB=C(LRECL=80,BLKSIZE=3120,RECFM=FB,DEN=3) 
//SYSPRINT DD SYSOUT=* 

//% 


171% FILE 14 -- PASCALO PASCAL -—- PASS 2 SOURCE COPTIMIZER) 
17% 

//STEP2 EXEC PGM=IEBUPDTE,PARM=NEW 

//SYSUT2 DD DSN=SQURCE.PASCALO.PASCAL,DISP=C(NEW,CATLG), 

4 / UNIT=3330,DCB=CLRECL=80,BLKSIZE=3120,RECFM=FB), 
// VOL=SER=DISKVOL,SPACE=CTRK,(40,10,5)) 

//SYSIN DD UNIT=TAPE, VOL=REF=*%.STEP1.SYSIN,LABEL=(14,NL), 
// DISP=COLD,PASS), 

// DCB=(LRECL=80,BLKSIZE=3120,RECFM=FB,DEN=3) 
//SYSPRINT DD SYSOUT=% 


11% FILE 15 -- PASCALT PASCAL - PASS 3 SOURCE CTRANSLATOR) 


//STEP3 EXEC PGM=IEBUPDTE,PARM=NEW 

//SYSUT2 DD DSN=SOURCE.PASCALT.PASCAL,DISP=CNEW, CATLG), 

// UNIT=3330,DCB=(LRECL=80,BLKSIZE=3120,RECFM=FB), 
// VOL=SER=DISKVOL, SPACE=(TRK,(117,39,5)) 

//SYSIN DD UNIT=TAPE,VOL=REF=*.STEP1.SYSIN,LABEL=C€15,NL), 
// DISP=(COLD,PASS), 

// DCB=(LRECL=80,BLKSIZE=3120,RECFM=FB,DEN=3) 
//SYSPRINT DD SYSOUT=x 


771% FILE 16 -- PASCALD PASCAL - DEBUG SOURCE 

17% 

//STEP4 EXEC PGM=IEBUPDTE,PARM=NEW 

//SYSUT2 DD DSN=SOQURCE.PASCALD.PASCAL,DISP=(NEW,CATLG), 


// UNIT=3330,DCB=(LRECL=80,BLKSIZE=3120,RECFM=FB), 
// VOL=SER=DISKVOL , SPACE=(TRK, (33,9,5)) 

//SYSIN DD UNIT=TAPE, VOL=REF=%.STEP1L.SYSIN,LABEL=(16,NL), 
// DISP=COLD,PASS), 

// DCB=(LRECL=80,BLKSIZE=3120,RECFM=FB,DEN=3) 
//SYSPRINT DD SYSOUT=%* 

17% 


11% FILE 17 -- PASCALX PASCAL - RUN TIME ENVIRONMENT SOURCE 


//STEP5 EXEC PGM=IEBUPDTE,PARM=NEW 

//SYSUT2 DD DSN=SOURCE .PASCALX.PASCAL,DISP=C(NEW,CATLG), 

// UNIT=3330,DCB=(LRECL=80, BLKSIZE= 3120,RECFM=FB), 
// VOL=SER=DISKVOL, SPACE=(TRK, (69,24,5)) 

4/SYSIN DD UNIT=TAFE,VOL=REF=*%.STEP1.SYSIN,LABEL=(C17,NL), 
// DISP=(OLD,PASS), 

// DCB=(LRECL=80,BLKSIZE=3120,RECFM=FB, DEN= 3) 
//SYSPRINT DD SYSOUT=* 


Figure 100. Listing of the JCL to copy source files from tape: 
stored as file 2 of the distribution tape. 
Figure 101 on page 174). 
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Ccontinued tn 


Installation Instructions 173 


11% FILE 18 -- PASCALZ ASM - RUN TIME ENVIRONMENT SOURCE 


//STEP6 EXEC PGM=ITEBUPDTE,PARM=NEW 

//SYSUT2 DD DSN=SOURCE.PASCALZ.ASM,DISP=(CNEW,CATLG), 

// UNIT=3330,DCB=(LRECL=80,BLKSIZE=3120,RECFM=FB), 
// VOL=SER=DISKVOL, SPACE=CTRK,(16,1,4)) 

//SYSIN DD UNIT=TAPE,VOL=REF=*%.STEP1.SYSIN,LABEL=(€18,NL), 


// DISP=COLD,PASS), 


// DCB=(LRECL=80,BLKSIZE=3120,RECFM=FB,DEN=3) 
//SYSPRINT DD SYSOUT=x 

17% “ 
77% FILE 19 -- MACLIBL PASCAL - %ZINCLUDE LIBRARY FOR COMPILER 
17% 


//STEP7 EXEC PGM=IEBUPDTE,PARM=NEW 

//SYSUT2 DD DSN=SOURCE .MACLIBL.PASCAL,DISP=CNEW,CATLG), 

// UNIT=3330,DCB=(LRECL=80,BLKSIZE=3120,RECFM=FB), 
/7/ VOL=SER=DISKVOL, SPACE=C(TRK,(21,7,4)) 

S/SYSIN DD UNIT=TAPE, VOL=REF=%.STEP1.SYSIN,LABEL=(19,NL), 
// DISP=COLD,PASS), 


// DCB=C(LRECL=80,BLKSIZE=3120,RECFM=FB,DEN=3) 
//SYSPRINT DD SYSOUT=x 
11% 


17% FILE 20 -- MACLIBO PASCAL - ZXINCLUDE LIBRARY FOR OPTIMIZER 
11% | 

//STEP& EXEC PGM=IEBUPDTE,PARM=NEW 

//SYSUT2 DD DSN=SOURCE .MACLIBO.PASCAL,DISP=C(NEW,CATLG), 


// UNIT=3330,DCB=C(LRECL=80,BLKSIZE=3120,RECFM=FB), 
// VOL=SER=DISKVOL,SPACE=C(CTRK,(5,2,3)) 

//SYSIN DD UNIT=TAPE, VOL=REF=*.STEP1.SYSIN,LABEL=(20,NL), 
// DISP=COLD,PASS), 

// DCB=(LRECL=80,BLKSIZE=3120,RECFM=FB, DEN=3) 
//SYSPRINT DD SYSOUT=x 

11% 


17% PLLE. 2) == MACLIBT PASCAL - “INCLUDE LIBRARY FOR TRANSLATOR 
1/% 

7/STEP9 EXEC PGM=IEBUPDTE,PARM=NEW | 

//SYSUT2 DD DSN=SOURCE .MACLIBT.PASCAL,DISP=CNEW,CATLG), 

17 — UNIT=3330,DCB=CLRECL=80,BLKSIZE=3120,RECFM=FB), 


// VOL=SER=DISKVOL,SPACE=C(TRK,(19,7,4)) 

7/7 3SYSIN DD UNIT=TAPE, VOL=REF=%.STEP1.SYSIN,LABEL=(21,NL), 
// DISP=COLD,PASS), 

// DCB=C(LRECL=80,BLKSIZE=3120,RECFM=FB,DEN=3) 

a 

11% FILE 22 -- MACLIBD PASCAL - “INCLUDE LIBRARY FOR DEBUG 
1/* 

//STEP1O0 EXEC PGM=IEBUPDTE,PARM=NEW 

//SYSUT2 DD DSN=SOURCE .MACLIBD.PASCAL,DISP=CNEW,CATLG), 

// UNIT=3330,DCB=(LRECL=80,BLKSIZE=3120,RECFM=FB), 
// VOL=SER=DISKVOL,SPACE=C(TRK,(2,1,1)) 

//SYSIN DD UNIT=TAPE,VOL=REF=*% .STEP1.SYSIN,LABEL=(€22,NL), 
// DISP=(OLD,PASS), 


// DCB=(LRECL=80,BLKSIZE=3120,RECFM=FB,DEN=3) 
//SYSPRINT DD SYSOUT=x | 


17% 

11% FILE 23 -- MACLIBX PASCAL - XINCLUDE/MACRO LIBRARY FOR RUN TIME 
11% ENVIRONMENT 

171% 


stanhcneheatavadhe national 


/7 UNIT=3330,DCB=(LRECL=80,BLKSIZE=3120,RECFM=FB), 
ff VOL=SER=DISKVOL ,SPACE=CTRK,(9,1,2)) 

//SYSIN DD UNIT=TAPE,VOL=REF=*%.STEP1.SYSIN,LABEL=(23,NL), 
// DISP=OLD, 

// DCB=(LRECL=80,BLKSIZE=3120,RECFM=FB, DEN=3) 


//SYSPRINT DD SYSOUT=% 


Figure 101. Listing of the JCL to copy source files from tape: (continued 


from Figure 100) 
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APPENDIX C. ADDITIONAL LIBRARY PROCEDURES AND FUNCTIONS 


In addition to the routines described 
in Pascal/VS Reference Manual, order 
number SH20-6168-1, there are several 
other routines which are not predefined 
but are provided in the Pascal/VS exe- 
cution library. These routines are : 


e ITOHS Procedure 


CMS Procedure 
LPAD Procedure 
RPAD Procedure 
PICTURE Function 


Appendix C. Additional Library Procedures and Functions 175 


TNL SN20-4445 (31 December 1981) to SH20-6162-1 


C.1 CMS PROCEDURE 


Invoke a CMS Command 


Definition: 


procedure CMS(C 
const § > STRING; 
var RC INTEGER); 
EXTERNAL; 


Where: 
S is a STRING that is to be 


executed. 
RC is the return code. 


The STRING specified by S will be 
passed to CMS (via SVC 202) to be exe- 
cuted; the command must be executable 
in the transient area or in a shared 
segment. You must code the declaration 
as shown above, or use the INCLUDE mem- 
ber named "CMS" which is provided in 
the Pascal/VS library. This procedure 
is applicable under CMS only. 


“INCLUDE CMS 
CMS('Q T’, RET); 
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C.2 ITOHS FUNCTION 
Convert an INTEGER to a hex string 


Definition: 


function ITOHS( 
I 


>: INTEGER) 

> STRING(8) 3 
EXTERNAL; 

Where: 


I is the value to be converted. 


This function converts the parameter I 
into a STRING that contains the hexade- 
cimal representation of the integer. 
You must code the declaration as shown 
above, or use the INCLUDE member named 
"CONVERT" which is provided in the Pas- 
cal/VS library. 


“INCLUDE CONVERT 
WRITELN('The value ',1:0, 
v 


1s 5 ITOHSCI), 
, in hexadecimal.'"); 


C.3 LPAD PROCEDURE 
Pads or truncates a string on the left 


Definition: 


procedure LPADC 
var Ss >: STRING; 
L >: INTEGER; 


C 
EXTERNAL; 


CHAR); 


Where: 


S is the STRING to be padded; 
L is the final length of 5S; 
C is the pad character. 


The procedure LPAD pads or truncates 
string variable S on the left. If 
LENGTHCS) is greater than L, then the 
effect is to truncate characters on the 
left. If LENGTH(CS) is less than L, 
then the effect is to extend S with the 
character C on the left. You must code 
the declaration as shown above, or use 
the INCLUDE member named "STRING" which 
is provided in the Pascal/VS library. 


“ZINCLUDE STRING; 


§ == "ABCDEF'; 
LPAD(S, 10, 'S$*); 
produces 'SSSSABCDEF*' in § 


S := "ABCDEF!; 
LPADCS, 5, '$*); 
produces 'BCDEF’ in S 
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C.4 RPAD PROCEDURE 


Pads or truncates a string on the 
right 


Definition: 


procedure RPAD(C 
var S >: STRING; 
L > INTEGER; 


C 
EXTERNAL; 


CHAR); 


Where: 


S is the STRING to be padded; 
L is the final length of 5S; 
C is the pad character. 


The procedure RPAD pads or truncates 
string variable S on the right. 
LENGTH(S) is greater than L, then the 
effect is to truncate characters on the 
right. If LENGTHCS) is less than L, 
then the effect is to extend S with the 
character C on the right. You must 
code the declaration as shown above, or 
use the INCLUDE member named "STRING"” 
which is provided in the Pascal/VS 
library. 


%INCLUDE STRING 


S := "ABCDEF'; 
RPAD(S, 10, '$"); 
produces "ABCDEFSSS$S$* in S 


§S := "ABCDEF!*; 
RPAD(S, 5, '$'*); 
produces ‘'ABCDE’ in S 
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C.5 PICTURE FUNCTION 


Formats a floating point value 
according to a "picture™ format 


Definition: 


function PICTUREC 
const P : STRING; 
R : REAL): STRINGC100); 
EXTERNAL; 


Where: 


P is a picture specification; 
R is the number to be formatted. 


The function PICTURE returns the string 
representation of a real number format- 
ted according to a "picture"™ specifica- 
tion. The characters that make up the 
picture specification are similar to 
those found in PL/I and COBOL. 


A declaration for PICTURE may be 
obtained by including the member CON- 
VERT from the Pascal/VS library. 


A picture specification may consist of 


two fields: a decimal field and an 
exponent field. The latter is optional; 
the first one is always required. 


The decimal field may consist of two 
subfields: the integer part and the 
fractional part. The latter is 
optional. 


Example of picture specifications: 


$9999.V99 
9V.999ES99 
$ZZZ,ZZZ,ZZ9V.99 


A picture character may be grouped into 
the following categories. Picture 
characters may be specified in lower 
case. 


e Digit and decimal-point specifier 


9 specifies that the associated 
position in the data item is to 
contain a decimal digit. 


V divides the decimal field inte 
two parts: the integer part and 
the fractional part. This char- 
acter specifies that a decimal 
point is assumed at this posi- 
tion in the associated data 
item. However, it does not spec 
ify that an actual decimal point 
is to be inserted. The integer 
and fractional parts of the 
assigned value are aligned on 
the V character; therefore, an 
assigned value may be truncated 
or extended with zero digits at 
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either end. (User beware!) If 
no V character appears, a V is 
assumed at the right end of of 
the decimal field. 


Zero suppression characters 


Z specifies a conditional digit 
position in the character 
string value and may cause a 
leading zero to be replaced with 
a blank. 


%® specifies a conditional digit 
position in the character 
string value and may cause a 
leading zero to be replaced with 
an asterisk ('X!'). 


leading zeros are those that occur 
in the leftmost digit positions of 
the integer part of floating point 
numbers. 


Insertion character 


Insertion characters are inserted 
into corresponding positions in 
the output string provided that 
zero suppression is not’ taking 
place. If zeros are being sup- 
pressed when an insertion 
character is encountered, a blank 
or an asterisk will be inserted in 
the corresponding place in the out- 
put string, depending on whether 
the zero-suppression character is 
a Zor an asterisk (%). 


» causes a comma to be inserted 
into the associated position of 
the output string. 


- causes ae point (.) to be 
inserted into the associated 
position of the output string. 
The character never causes 
point alignment in the number. 
That function 1s served soley by 
the character V. 


B causes a blank to be inserted 
into the associated position of 
the output string. 


Signs and currency symbol 


The sign and currency characters 
C'Stz'+',*"-"',°S"') may be used in 
either a static or a drifting man~ 
ner. The static use specifies that 
a sign, a currency symbol, or a 
blank always appears in the associ- 
ated position. The drifting use 
specifies that leading zeros are to 
be suppressed. 


A drifting character is specified 


by multiple use of that character 


ina picture field. 


+ specifies a plus sign character 
(+) if the number is >=0, other- 
wise it specifies a blank. 


uy 


- specifies a minus sign charac-— 


ter (-3 a1f the number 


is <0, 


otherwise it specifies a blank. 


S$ specifies a plus sign character 
C+) if the number is >=0, other- 
wise it specifies a minus sign 


character (-). 


§ specifies a dollar sign charac 


ter ($). 


Exponent specifiers 


The characters 'E’ and 


delimit 


the exponent field of a picture 


"99999" 
"22229" 
"XXX! 
"ZZ2ZZ9" 
'ZZ2ZZZ2' 
1XX*X9! 
HHH! 
799999" 
"+9999! 
*+9999" 
1999599 
"999V.99° 
"222,222,229" 
"HHH, KKH, HHO! 
"22,222,223" 


woe eee ee eee ee wee --9 ? 


"SHH, RRR, XXIV 99! 
"S$S,$9S$S,SS9V.99! 
1S IV4.9999ES99" 
"S9V.9999KS99' 
-999.999,V99° 
=7;, SIIES® 
"OBSBIBSBIBS? 

ie re ee ek ee re 
°99999S$" 

ee 

"999+! 

"Z2Z.V99" 
"ZZZ2V.99" 
-9V.999ES9! 
"SISSOVESZI! 

"SV. 979E=99"* 


Figure 102. 


123. 
123. 


-123. 


e ° e e e e 
ODoC0OO000 


-123.456 
123.456 


123456. 
123456. 
-123456. 
-123456. 
123456.78 
123456 .78 


0 
0 
0 
0 


1.23456 
1.23456 


1234.567 
-1234.567 
123456. 
12345.0 
~12345.90 


-123.45 
#123.45 
0.12 
0.12 
1.23E4% 


-123456. 
123456. 


0 


specification. 
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The exponent field 


must always be the last field. 


E 


specifies that the associated 
position contains the letter E, 
which indicates the start of the 
exponent field. 


specifies that the exponent 
field appears to the right of 
the associated position. It 
does not specify a character 
data item. 


See Figure 102 for examples. 


THHHXO! 
"RMR M!? 
"+0123" 
"+0123" 

* Q123' 
"001.23" 
"123.46" 

: 123,456" 
"****123,456' 
pas 123,456" 
: -123,456' 
"$¥*X¥123,456.78' 
: $123,456.78! 
*+1.23546E+00° 
"+1 .2346+00' 
°-001.234,57' 
=1 259055" 
"1234 5 6° 
'O..1.2.554.5" 
"12345-'" 

"120. = 

rie2ot* 

' 12° 

' ce” 

' 1.230E+4¢' 
T=1235EF. 2? 

" .123E 06' 


Examples of using the PICTURE function 
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access methods 45 


BDAM 45 

BPAM 45 

QSAM 45 
arrays 


storage mapping of 88 
assembler routines, linking 
to 104-119 
calling Pascal/VS main program 


from 109 
calling Pascal/VS routines 
from 107 


general interface 105-106 

minimum interface 104 

receiving parameters) 107 
assembly listing 42 
automatic variables 

storage mapping of 87 


batch 
See 0S batch 
BDAM 45 


BLKSIZE 45, 57 
block size attribute 
See BLKSIZE 


BPAM 45 
CALL 


command of TSO 20 
cataloged procedures 24 


PASCC 25 
PASCCG 26 
PASCCL 27 
PASCCLG 28 


CHECK compiler option 31 
as it applies to 
CASE statements) 31 
function routines 31 
pointers 31 
string truncation 32 
subranges 31 
subscripts 31 
checking errors at run time 61 
CLOSE procedure 55 
closing a file 55 
CMS 9-13 
building load module 12 
compiling under 9-11 
defining files under 13 
invoking load module 13 
CMS procedure 176 
COBOL 114 
calling from Pascal/VS 114 
calling Pascal/VS from 115 
code generation 91-102 
See also DSA, 
linkage conventions 


parameter passing, 
PCB, 
PCWA, 
register usage, 
routine format, 
routine invocation 
command syntax 163 
compilation 
under CMS 9-11 
under 0S batch 23-30 
under TSO 15-17 
compiler diagnostics 
under CMS 10 
under TSO 17 
compiler listings 37-43 
assembly 
See assembly listing 
cross-reference 
See cross-reference listing 
ESD 
See ESD table 
source 
See source listing 
compiler messages 
See messages, compiler 
compiler options 31-33 
See also CHECK compiler option, 
DEBUG compiler option, 
GOSTMT compiler option, 
LANGLVL compiler option, 
LINECOUNT compiler option, 
LIST compiler option, 
MARGINS compiler option, 
NOCHECK compiler option, 
NODEBUG compiler option, 
NOGOSTMT compiler option, 
NOLIST compiler option, 
NOOPTIMIZE compiler option, 
NOPXREF compiler option, 
NOSOURCE compiler option, 
NOWARNING compiler option, 
NOXREF compiler option, 
OPTIMIZE compiler option, 
PAGEWIDTH compiler option, 
PXREF compiler option, 
SEQUENCE compiler option, 
SOURCE compiler option, 
WARNING compiler option, 
XREF compiler option 
console input/output 47 
CONSOLE option 
of PASCALVS CLIST 16 
of PASCALVS EXEC 10 
COUNT run time option 35 
cross-reference listing 40-41. 
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data set attributes 45 
See also LRECL, RECFM, BLKSIZE 
data set definitions 
See file definitions 
DCB attributes 
See data set attributes 
DDname 
OPEN specification 57 
DDname association 45 
DEBUG compiler option 32 
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debug facility 65-85 
commands 65-77 


break 66 
clear 66 
CMS 67 


display 67 

display breaks 68 
display equates 68 
end 7 
equate 69 


help 71 
listvars 71 
qualify 72 
quit 72 
resat 73 
set attr 73 
set count 74 
set trace 74 
trace 75 
view memory 76 
view variable 75 
walk 77 
input to 65 
output from 65 
qualification 65 
DEBUG option 
of PASCMOD CLIST 19 
of PASCMOD EXEC 12 
of run time 35 
debugging a program 
interactive debugger 
See debug facility 
traceback facility 59 
DEF variables 
storage mapping of 87 


default 
BLKSIZE 45 
LRECL 45 
RECFM 45 


DISK option © 

of PASCALVS EXEC 9 
DSA (dynamic storage area) 92 
dump 

symbolic variable 63 
dynamic storage area 

See DSA 
dynamic variables 

storage mapping of 87 
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end-of-file condition. 

for record files 54 

for text file 54 
end-of-line condition 53 
enumerated scalar 

storage mapping of 88 
EOF function 54 
EOLN function 53 
EPILOG assembler macro 105 
ERRCOUNT run time option 35 
ERRFILE run time option 35 
errors 

execution time | 

intercepting 62 

ESD table 43 
executing a program 

under 0S batch 23-30 
execution error handling 61 
execution errors 

intercepting 62 
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external symbol dictionary 
See ESD table 


LF | 


file control block 
See PCB 
file definitions 
under CMS 13 
under 0S batch 29 
under TSO 20 
files 
See also input/output facilities 
See also record files 
See also text files 
storage mapping of 83 
FORTRAN 112 
calling from Pascal/VS 112 
calling Pascal/VS from 113 
function invocation 
See routine invocation 


Ls | 


GET procedure 48 

record files 48 

text files 48 
GOSTMT compiler option 32 
GS compiler option 

See GOSTMT compiler option 
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I/O facilities 
See input/output facilities 
%INCLUDE facility 
under CMS 10 
under 0S batch 29 
under TSO 17 
input/output facilities 45-58 
implementation 45 
record files 
See record Files 
text files 
See text Fes 
installation instructions 165-174 
compiler source 
under CMS 171 
under VS2 172 
for CMS 166 
for OS/VS2 168-171 | 
cataloged procedures) 171 
CLIST customizing 171 
loading compiler 168-171 
modifying for CMS R5 = 166 
regenerating compiler under 
CMS 166 
interactive files 46, 51 
INTERACTIVE open option 46, 57 
intercepting execution errors 62 
interlanguage communication 103-119 
assembler 
COBOL 114 — 
data type equivalencing 118 
FORTRAN 112 
PL7I 116 


ITOHS function 176 


JCL 23 
job control language 23 


LANGLVL compiler option 32 
LC compiler option 
See LINECOUNT compiler option 
LIB option 
of PASCALVS CLIST 16. 
of PASCMOD CLIST 19 
LINECOUNT compiler option 32 
linkage conventions 91 
LIST compiler option 32 
listing 
See compiler listings 
load module 
creating under CMS 12 
creating under TSO 18 
invoking under CMS 13 
invoking under TSO 20 
logical record length 
See LRECL 
LPAD procedure 177 
LRECL 45, 57 
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MACLIB access 

See partitioned data set 
MAINT run time option 35 
MARGINS compiler option 32 
MEMBER open option 58 
messages 131-159 

compiler 131-149 

DEBUG 157 

execution time messages 150 

‘PASCALVS exec 159 
MVS batch 

See 05 batch 
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NAME option 

of PASCMOD EXEC 12 
NOCHECK compiler option 31 
NOCHECK run time option 35 
NODEBUG compiler option 32 
NOGOSTMT compiler option 32 
NOGS compiler option 

See NOGOSTMT compiler option 
NOLIB option 

of PASCALVS CLIST 16 
NOLIST compiler option 32 
non-text files 

See record files 
NOOBJ option 

of PASCALVS EXEC 10 
NOOBJECT option 


of PASCALVS CLIST 16 
NOOPT compiler option 

See NOOPTIMIZE compiler option 
NOOPTIMIZE compiler option 33 
NOPRINT option 

of PASCALVS CLIST 16 

of PASCALVS EXEC 10 
NOPXREF compiler option 33 
NOS compiler option 

See NOSOURCE compiler option 
NOSEQ compiler option 

See NOSEQUENCE compiler option 
NOSEQUENCE compiler option 33 
NOSOURCE compiler option 33 
NOSPIE run time option 35 
NOWARNING compiler option 33 
NOX compiler option 

See NOXREF compiler option 
NOXREF compiler option 33 
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OBJECT option 
of PASCALVS CLIST 15 
of PASCMOD CLIST 19 
open options 56 
INTERACTIVE 46 
opening a file 
for input 46 
for interactive input 46 
for output 47 
for terminal I/O 47 
for update 47 
OPT compiler option 
See OPTIMIZE compiler option 
OPTIMIZE compiler option 33 
0S batch 23-30 
cataloged procedures 23 
compiling under 23 
executing under 23 
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Page cross reference 33 
PAGE procedure 53 
PAGEWIDTH compiler option 33 
parameter passing 95-96 
by value 95 
function results) 96 
read-only reference (CONST) 95 
read/write reference (VAR) 95 
routine parameters 96 © 
partitioned data set 56, 58 
access under CMS 56 
opening 56 
Pascal communication work area 
See PCWA 
Pascal, standard 
extensions 127 
modified features 127 
restrictions over 127 
PASCALVS 
CLIST of TSO 15 
DEBUG messages 
See messages, PASCALVS exec 
exec messages 
See messages, PASCALVS exec 
exec of CMS 9-10 
PASCC cataloged procedure 25, 27 


Index 


PASCCG cataloged procedure 26 
PASCCL cataloged procedure 27 
PASCCLG cataloged procedure 28 
PASCMOD 

CLIST of TSO 18 

EXEC of CMS 12 


PCB 101 
PCWA 98 
PDS 


See partitioned data set 
PDSIN procedure 56 
PDSOUT procedure 56 
PL/I 116 

calling from Pascal/VS 116 

calling Pascal/VS from 117 
PRINT option 

of PASCALVS CLIST .16 

of PASCALVS EXEC 10 
procedure invocation 

See routine invocation 
PROLOG assembler macro 105 
PUT procedure 49 

record files 49 

text files 49 
PW compiler option 

See PAGEWIDTH compiler option 
PXREF compiler option 33 


QSAM 45 


READ procedure 
for record file 54 
text file 49 
integer data 50 
length qualifier 50 
real data 50 
strings 51 
READLN procedure 51 
RECFM 45, 57 
record fields 
storage mapping of 87 
record files 46 
Closing 55 
GET operation 48 
opening for input 46 
opening for output 47 
processing of 54-55. 
PUT operation 49 
updating 
record format 
See RECFM 
records 
storage mapping of 8 
regenerating compiler under CMS 
register usage 91 
RESET procedure 46 
REWRITE procedure 47 
routine format 97 
routine invocation 94 
RPAD procedure 177 
run time errors 
intercepting 62 
run time libraries 
under CMS = 12 
run time options 35 


166 
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runtime environment 121-125 
main program 121 
memory management 125 


program initialization 121 


Ls | 


S compiler option 
See SOURCE compiler option 
SEQ compiler option 
See SEQUENCE compiler option 
SEQUENCE compiler option 33 
SETMEM option 35 | 
sets 
storage mapping of 89 
SOURCE compiler option 33 
source listing 37-39 
compilation statistics 39 
error summary 38 
nesting information 38 
option list 38 
page cross reference field 38 
page header 38 
statement numbering 38 
spaces 
storage mapping of 90 
standard Pascal 
See Pascal 
static variables 
storage mapping of 87 
storage mapping 87-90 
arrays 88 | 
automatic storage 8/7 
boundary alignment 87-90 
data size 87-90 
DEF storage 8/7 
dynamic storage 87 
enumerated scalar 88 
files 89 
predefined types) 8/7 
record fields 87 
records 88 
sets 89 
spaces 90 
static storage 87 
subrange scalar 88 
subrange scalar 
storage mapping of 88 
symbolic variable dump 63 
syntax notation 163 
SYSLIB 27, 29 
SYSLIN DDname 24 
SYSLMOD 27 
SYSPRINT DDname 24 
SYSPRINT option 
of PASCALVS CLIST 16 


| ammaecens, | 


La 


TERMIN procedure 47 | 
terminal input/output 47 
TERMOUT procedure 47 
text files 
closing 55 
GET operation 48 
interactive input 46 
opening for input 46 
opening for output 47 
processing of 49-54 


PUT operation 49 
traceback facility 59-61 
TSO 15-21 
building load module 18 
compiling under 15-17 
defining files under 20 
invoking load module 20 
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UPDATE procedure 47 


variable dump 63 


VS2 batch 
See 0S batch 
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W compiler option 


See WARNING compiler option 


WARNING compiler option 33 
WRITE procedure 52 

for record file 54 
WRITELN procedure 53 
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X compiler option 
See XREF compiler option 
XREF compiler option 33 
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